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ELECTRON ORBIT 


The new Acorn Electron will soon be appearing in the shops, and we have taken the 
opportunity of reviewing it in this issue, though we will not be carrying items for 
the Electron in future issues. As you will be aware, the Electron is essentially a 
whittled down Model B. It is however a first class machine in its own right, and we 
have launched a separate user group and magazine called ORBIT to cover this micro. 
One advantage of this, as we see it, is that we will not be forced to fill the 
magazine with explanations of how to modify each program to run on the Electron, and 
we will not be tempted to let mode 7 fall into disuse just for the sake of downward 
compatibility (the Electron has no mode 7). 


PCW SHOW TICKETS | 

We have been threatened with а delivery of 20000 "£1 off" tickets for the PCW 
show, allowing entry for £2.09 instead of £3.00; and if they arrive, you will 
receive one with this magazine. The show is to be held in the Barbican centre from 
29 Sept to 2 Oct. 


MAGAZINE CASSETTES 

This month's magazine cassette contains all the programs from this issue plus two 
extras: а 3 part harmonisation of Bach's Prelude XII and a machine code screen dump 
for the NEC 80 printer. One or two members have written regretting our inclusion of 
additional items on the magazine cassette. These items are things which we have not 
had room for in the magazine, and often they particularly lend themselves to 
cassette distribution. In this latest case for example the Bach Prelude is an 
exremely long listing, but can be placed on the magazine cassette at no extra cost. 

However, for those members who require a particular "extra" item on the magazine 
cassette, but who do not wish to purchase the whole tape, we are instigating a trial 
photocopy service. Send 50р per item required, plus sae to: Photocopies, BEEBUG, PO 
Box 50, St Albans, Herts. Please give your membership number. 


David Graham. 
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HINT WINNERS 
This month's hint winners are N.Kelly & B.Knott who share the £10 prize and 
J.P.Carnell who wins the £5 prize. 


ORBIT FOR THE ACORN ELECTRON 


For further details of our new monthly magazine for the ACORN ELECTRON, see this 
month's supplement. 


MAGAZINE CASSETTE - EXTRA ITEMS 

This month's magazine cassette contains two extra items: 

PRELUDE XII by J.S. Bach encoded ру D.R. Piercy - A three minute Bach prelude in 
3 part harmony with visual representation. 

NEC 80 SCREEN DUMP by Simon Ainsworth - A useful machine code screen dump (05 0.1 


and 1.2) for all graphics modes of the Beeb, and with two alternative size 
printouts. 


BEEBUG POST . 


BEEBUG requires a young technical assistant with software expertise on the Beeb. See 
the supplement for details. 
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ELECTRON LAUNCH AT ACORN USER SHOW 

The official launch of the Electron 
occurred on 23rd August as a prelude to 
the Acorn User Show. For the occasion, 
Quentin Bell  (Acorn's new Advertising 
Agency) put оп a splendid show fronted 
by TV personalties, Wendy Craig and 
Cliff Michelmore. To complete “һе 
event, there was a green Electron Fizz 
cocktail, and rock with the words 
"Acorn Electron" written all through 
it. There were also some Electrons on 
show! These had a variety of Acornsoft 
games - some of which like Snapper and 
Monsters were running noticably slower 
(see Electron review elsewhere). The 
interesting thing was that you could 
use SHIFT-BREAK to load the display 
machines through an undisclosed and 
hidden 'file-server', joined through 
the rear connector. 


Unlike the Beeb, the Electron will 
not be sold on mail order, and dealers 
are expecting supplies any day now. 
М.Н. Smith, for example, are to sell the 
Electron in some 200 of their retail 
outlets. The retail price of the 
Electron will be £199 inc VAT, though it 
is suggested that there is room for a 
downward movement in price to meet 
competition. 


B 
Both GSL and Pace have announced 
5.25 inch Winchester hard disc systems 
for the Beeb. These will allow up to 20 
Megabytes and more, of storage on a 
Single disc. Demonstration units were 
on show at the Acorn 
User Exhibition at 
the end of August, 
and the units will 
soon be on sale. The 
price tag is around 
£2000, which puts it 


well outside the 
budget of most home. 
users! 


Further details 
from: | 


Pace Supplies Ltd. 
0274-729306 


GSL Ltd. 
0264-58744 
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ADVANCED USER GUIDE 


October 1983 


This 500 page manual is published in 
a similar format to the BBC User guide, 
and costs £12.95. It has been 
independently produced by the Cambridge 
Microcomputer Centre, though it ‘has 
Acorn's approval even to the extent of 
contaning an authorised circuit diagram 
for the Beeb. From our early 
assessments the book appears to be an 
invaluable guide covering mainly the 
operating system, the programmable 
hardware (ie 6845, video ULA etc) and 
the assembler. It also contains the 
most complete list of FX calls that we 
have seen. 


Further details 
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DOUBLE DENSITY DISCS 
LVL Microsystems and Microware Ltd have 
both | announced double density disc 
controller boards. These boards plug 
into the socket used by the 8271 disc 
controller chip, to give a true double 
density facility. This effectively 
doubles the on-line capacity of most 
disc drives, by doubling the number of 
sectors in each track of a disc. One 
further advantage is that the scarce 
8271 chip, which does not | support 
double density, is replaced by more 
readily available controller chips. 


Further details from: 
LVL on 0602-394000 
Microware оп 01-272-6237 
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: provides 
: mishandling. The discs should certainly 
: be 


zs Опе 
^; developments for some time is the new 3 


of the most interesting 
inch disc unit from AMS. The new unit 
is very small and compact as might Бе 
expected. Each disc is contained in a 
rigid plastic case, and a sprung metal 
cover over the read/write window 


complete protection from 


robust and will be easy to store in 
this form. Although the disc drives are 


single sided units providing the 
standard 1@@k bytes of online disc 
Storage, the discs themselves аге 


Е SECURITY DEVICE FOR YOUR BEEB 


Micro which will prevent unauthorised : 

“persons from tampering with the machine 2 
запа will also identify it if it 
“lost or stolen. 


machine? S serial number if you wish. 


:This information 


Unless you can then type 


“board, but that takes a certain level: 

ТОЁ know-how, and the time to remove the 

#11а and keyboard. A security conscious 

iowner could always solder in the EPROM. 

; The device costs £15 from Software 
: Services, 65 South Mossley Hill Road, 
: Allerton, Liverpool 119 9BG. You will 

м = need to send the full details to be 
5 included in your EPROM plus your choice 
соғ five Char acter security code. 
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You can now fit an EPROM in your BBC | 


isi: 
The customized EPROM is: 
* programmed with your name and address, 23 А 
“апа also your telephone number, and the ¥ : DFS, being much more like CP/M, : 
- : Operating system much used оп other: 
is displayed on the $ į microcomputers. 
screen when you switch the micro on. 22 

in your zz 
= personal code the EPROM prevents any © 
i further use of the machine. There is of i£ 
*course nothing to prevent the EPROM 22 
= from being unplugged from the circuit 2 


DO 
е оо 4.44. 


E costs £79.95 plus VAT. 2 


like a cassette. Each side сап store 
100k bytes and is inserted with the A 
or B side uppermost as required. This 
gives a total storage capacity per disc 
of 200k bytes. Initial tests by us 
would indicate that the units аге 
reliable in operation and that they are 
comparable with other disc units for 

the BBC Micro. 
The one problem that we foresee with 


the AMS drives is that of 
compatibility. It is likely to be some 
considerable time before software 


houses offer their products on three 
inch disks, and until then AMS users 
will have to purchase software on 
cassette, much of which may not be 
easily transferrable to disc. 

The new disc units cost £225 for a 
single drive and £399 for a double 


drive, including VAT and delivery in 
both cases. Тһе price also includes 
cables, manual and utilities. Discs 


cost £4.95 each or £22.50 for a pack of 
5. 

The disc units can be ordered direct 
from Advanced Memory Systems Ltd, 
Woodside Technology Centre, Green Lane, 


$ Kenda Software Services Ltd have: 
: produced an alternative disc filing: 


: system for 
: Mighty Oak 
different 


the BBC Micro known as the? 
DMFS. This is quite: 
in structure from the Acorn: 
an: 


Disc storage 155 
: allocated dynamically so that both data: 
з files and directory can grow as апа: 
when required. There аге no problems int 
extending files, as additional disc! 
blocks are allocated from wherever they? 
are available. A further pius point ў 
: with the Kenda system is that it: 
сопа its own 2k bytes of internal © 

: RAM and does not require апу extra = 


: memory space within the micro, unlike 2 
: the Acorn DFS. We hope to review this : 
; іп a future issue. The Mighty Oak DMFS 5 


: İs available from Kenda at Nutsey Lane, 2 
= Totton, Southampton 504 3NB and 2 
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_ THE TELETEXT 


by Mike Williams 


Teletext mode or mode 7 on the Beeb is often overlooked by newcomers, and indeed, 
by many more expert users. But what other mode offers text and graphics, all sixteen 
colours, single and double height text and uses only ІК of memory to support the 
Screen image? We begin here a series on how to get the most from mode 7. This' first 
article starts from square one, and covers some of the ground covered in our brief 
article in Vol.2 No.l. The series will soon progress beyond that point. 


When you switch on the BBC micro you 
are by default in mode 7. It is 
different from the other 7 modes in 
many respects. It does not have high 
resolution graphics capability, or user 
defined graphics characters, апа 
instructions like MOVE, DRAW, PLOT, 
COLOUR and GCOL do not apply. However, 
full colour is available, as is a 
limited set of pre-defined graphics 
characters. It may also surprise you to 
know that the text window facility (see 
User Guide p.387) functions in mode 7. 


COLOURED FOREGROUND 


A mode 7 screen consists of 25 lines 
of 48 characters, numbered 0 to 39 
across the screen, and @ to 24 from top 
to bottom. If you enter mode 7 (either 
by switching on the machine, or 
pressing Break, or typing 
MODE 7 <return>) any text entered from 
the keyboard will appear in white on a 
black background. 

Generating coloured text 15$ easy. 
Type the following instruction into the 
machine: 

PRINT CHR$129 "BEEBUG" . «return» 

If you do this you will see the word 
BEEBUG displayed on the screen in red. 
Other numbers instead of 129 will 
produce BEEBUG in different colours as 


follows: 


red 
green 
yellow 
blue 
magenta 

| cyan 
| white | 


| 


Try the same instruction with 
different colours. Now just type in 
PRINT "BEEBUG" 


The word will now appear in white, 
the default colour for text, but there 
is a further and important difference 
between them. Тһе coloured version 
starts опе character in from the left 
hand side of the screen compared with 
the last version. This is because the 
first character position contains a 
Teletext | control character  (CHR$129 
etc) which controls the colour of the 
following text. А11 the effects that 
сап be produced in mode 7 are defined 
by these control characters. They each 
occupy one position on the screen, and 
can Бе copied like any other character 
using the COPY key. Try an experiment. 
Use the cursor and copy keys to copy 
one of the coloured versions of the 
word "BEEBUG", If you start copying 
from the first letter "В" the word will 
be copied in white, because you will 
not have copied the control character. 
If you move the cursor to the 
apparently blank position preceding 
that letter and copy that as well as 
"BEEBUG", then "BEEBUG" will appear іп 
the colour you are copying. You can, of 
course copy the control character from 
one position and the letters from 
another. Experimenting like this will 
help you to understand how the control 
characters work. Once а control 
character has been placed on a line of 
the screen, it will affect all further 
text until either another control 
character or the end of the line is 
reached. Try typing in the following 
after clearing the screen with CLS: 
PRINT CHRS$129"BEEBUG"CHRS 1 30" МАСА, INE" 


On the 1.2 Operating System, you can 
generate the colour codes by 
simultaneously pressing Shift and one 
of the function keys. 
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| Press Shift and | 
| СО NOTHING | 
£1 RED text 
£2 GREEN text 
ЕЗ YELLOW text 


£4 BLUE text 
£5 MAGENTA text 


£6 CYAN text 

£7 WHITE text 

£8 FLASHING text ON 
£9 FLASHING text OFF 


Mode j provides an easy way to 
create coloured backgrounds for strings 
of text. This is achieved using control 
code 157. The effect of this is to 
produce a background (one character 
high) in the current foreground text 
colour. To illustrate this try the 
following: 

PRINT CHR$129;CHR$157;CHR$132"Blue text 
on a red background" 


The first code generates the colour 
red, the Second makes that «һе 
background colour, and the third makes 
the following text blue. То terminate 
the background colour after the printed 
text, add ;CHR$156. this returns the 
background to black. 


COLOURED SCREEN 


Here is a short program which 
produces a colourful result on the 
screen: 


100 REM Program BEEBUG] 

110 MODE 7 

120 FOR Х-й TO 28 STEP 7 

130 FOR Y-0 TO 6 

140 PRINT TAB(X, Y) СНВ$ (129+Ү) " BEEBUG" 
150 NEXT Y 

160 NEXT X 

170 END 


The (129+Y) in line 140 selects а 
different colour each time the loop is 
repeated. Change the step size in 1іпе 
120 to 5 and rerun the program. Each 
successive column of words overlaps the 
previous one but because of the control 
character at the start of each word 
there is an apparent space between one 
column and the next. 


Now we know how to produce coloured 
text, we will look at how we сап 
produce double height text. The control 


code for this has value 141. Try typing 
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PRINT CHR$141 "BEEBUG" 'CHR$141 "BEEBUG" 


We have "BEEBUG" displayed on the 
screen іп double height characters. It 
is necessary to print the line of text 
twice, оп both lines to produce double 
height text. In fact the first printing 
produces the top half of the double 
height characters, and the second 
printing, the bottom half. Double 
height text can of course be coloured. 
PRINT CHR$141 CHR$129 "ВЕЕВИС" 'СНВ$1 4] 
CHR$129 "BEEBUG" 


The top and bottom halves of the 
double height text can also be in 
different colours. Try changing the 
CHR$129 (in one position only) to a 
different colour value. 


We will now rewrite our program 
BEEBUG] to produce double height 
characters. Here is the new program 
called BEEBUG2: 

100 REM Program BEEBUG2 
110 MODE 7 

120 FOR Х-й TO 32 STEP 8 

130 FOR Y-0 TO 6 

140 PRINT TAB(X, 2*Y) CHRS1 41 CHRS (1294Y 
) " BEEBUG" 

145 PRINT TAB(X,2*Y-1)CHR$14]CHR$ (1 29 
+Y) "BEEBUG" 

150 NEXT Y 

160 NEXT X 

170 END 


Each time "BEEBUG" appears, it is 
preceded on the screen by two blank 
characters, because of the two control 
characters, опе for double height and 
one for the colour. This is why line 
120 has had to be changed, as the 
letters of "BEEBUG" plus the two 
control characters add up to 8. If you 
change the step size in line 130 from 6 
to 5 and the 129 in line 145 to 130 and 
rerun the program, the top and bottom 
halves of the double height characters 
will now be in different colours. 


Finally, here is a short program 
which allows you to list any program in 
coloured text on the screen. 


100 REM Program BEEBUG3 
110 MODE 7 
120 FOR Ү=0 TO 24 
130 PRINT ТАВ(0,Ү)СНВ5129; 
140 NEXT Y 
150 VDU28,1,24,39,0,30 

. 168 END 
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The 129 in line 130 could be 100 REM Program BEEBUG4 


replaced by any of the colour codes 110 *KEYOMO. 7:F.Y-0TO24:P. TAB(Q, Y) CHR 
listed before. The colour control $129; :N. :V. 28,1,24,39,0, 30|M 

character is placed at the start of 120 END 

every line on the screen and then the In this program, if you replace the 


text area of the screen is redefined in 129 in line 110 by (129+Y MOD 6) you 
line 150 to protect the control codes will get rainbow listings. 
(see user guide). Type the program, run 


it and then list the program. It will Next month we will look at Teletext 
appear in whatever colour you have graphics. Meanwhile you may like to try 
chosen in line 130. This can also be codes 136 and 137. These initiate and 
programmed into a function key. cancel flashing text (not background). 


* 5425254245225 
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RECOVERING POORLY RECORDED WORDWISE FILES - P.Ells 

If you suffer from cassette problems then you should always save files twice. If 
this is done then you can recover a difficult program by loading most of it from one 
copy and the difficult blocks from the other one. This is rather tedious but more 
interesting than re-typing a big file. 

Unfortunately Wordwise does not allow these 're-tries' with cassettes as it stops 
loading whenever there is an error. То get around this use *LOAD "" E@@ to load the 
file (from Basic). Get the file in memory properly and then re-save it with *SAVE 
"name" E98 +length, length being given as a 4 digit hex number after the last block 
of the load. This gives another copy of the file to attempt to load into Wordwise. 


LOCAL ARRAY ELEMENTS -  N.Kelly and B.Knott 
To use arrays locally in a procedure define the array globally and use a FOR NEXT 


loop to declare each individual element LOCAL. 


06 0 00009960 6 9 ват = 276767979” аео гое гога" 8:9:97010:0:919 8707070 0707072 070706 470 0 0707070 070 0 90 0 s o a o s e o a o a a n'a Ra КУ, 
6,964. 4... + eee БОС et 060606 м 06 оа 6069 ото воо o о е ө оэ о е о о 0969, оо оо о о ао оо вото то о о е о "595554755559 a he 49,549 оноор о отого xe 
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A VERSATILE КЕМІС! 
PROGRAM (16/3: 


by G & L Pettit 


G.& L.Pettit describe a useful utility program which allows selective renumbering 


of Basic programs. 


It will work on a model A or B, but on a model A the length of 


the program to be renumbered is resticted to around 4k. 


The RENUMBER command in BBC Basic is 
limited in its usefulness when a 
program falls into one of several 
common categories - for instance, when 
using procedure or subroutine libraries 
as an addition to а master program. 
These master programs will inevitably 
be of different lengths and, if the 
RENUMBER command is used оп the 
resulting total programs, the line 
numbers of the procedures will differ 
from one program to the next. This 
makes recognition of the procedures 
difficult; if subroutine libraries are 
used, when a subroutine is known only 
by a line number 
recognition is impossible after 
renumbering. Also, many program 
standards. require that each program 
include initial REMs containing dates, 
author's name, peripherals required, 
algorithms employed, etc. Since no two 
programs will have identical REMs, the 
main program will start at different 
line numbers if blanket renumbering is 
used. 


It is to cater for these апа other 
situations, where selective renumbering 
is to the programmer's and end-user's 
advantage, that the Selective  Renumber 
program has been written. It allows 
renumbering of the leading statements 
only, of a portion of the middle of the 
coding, or of the end statements only. 
The new starting line number апа the 
new increment (applied to the 
renumbered lines only) are specified by 
the user and the program will inform 
him if there is any overlap between 
existing line numbers and the new ones 
BEFORE renumbering takes place. Тһе 
user may therefore withdraw from an 
overlap situation and re-specify the 


parameters, before any confusion 
occurs. 
Although line numbers іп REMs are 
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not altered, line numbers in all other 522 
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Statements will Бе changed, including 
calls from the non-renumbered 
Statements. Thus if subroutines аге 
being renumbered, calls from the main 
program are changed to match, or if 
only a part of the main program is 
being renumbered, the GOTOs or RESTORES 
in the rest of the main program will be 
changed if necessary. 


First type in the selective renumber 
program and SAVE on disc or cassette in 
the usual way. To use the program, load 
the Basic program to be renumbered, as 
normal, then type 


РАСЕ-ТОР--100 
LOAD" RENUM" 
RUN 
This procedure will prevent the 
renumber program  Oover-writing | the 
user's program, assuming this is 


already resident in memory at &Е00 (if 
using tape) or ас 81900 (if using 
discs). The value TOP-&100 has been 
chosen so that the renumber program is 
loaded іп at the next page in memory, 
thus giving the maximum space for work. 


When Selective Renumber is run, the 
program will first check that the 
user's program has been loaded. If 
not, an error message is displayed and 
the Renumber program will stop, to 
allow the user to reset PAGE to &Е00 
(or 51900), to load his program and to 
reset PAGE again to TOP+&1@@. When RUN 
is typed, a message requests the range 
of line numbers to be renumbered. This 
may be answered by 


, nnn for all lines up to nnn, 
mmm , nnn for all lines between mmm 
and nnn inclusive, or 
mmm , for all lines from mmm 


onwards. 
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„СО ! line numbers, and you can't use the BBC 
new initial line number and new а RENUMBER command, this may get you back 
increment, for the section to Бе < into production again. 

renumbered. If the resulting line | 

numbers would conflict with the J , — M 
unchanged numbers, а message will ask Е . VARIABLES USED 


The program will next request the 


the user if he wants to abandon the | The array Е% contains the line| 
renumbering, If he abandons, his % )inumbers of the original program, and | 
program will be unaltered, otherwise ithe array F% contains the equivalent | 
the renumbering will be carried out » Піле numbers in the renumbered portion | 
without further messages. At the end of the program. Initially, а11| 
of the run, the user must return PAGE em elements of F% are set to -1 and this| 
to its original value by typing is used as an indication of the] 
PAGE-&EQU (tape) or PAGE-&1900 (disc) renumbered range. | 
before listing his program. c | 
INg is PAGE for the program to бе | 
Finally, when running the program, |renumbered | 
please note that it takes an 1% is the total no. of lines in the | 
appreciable time to renumber even a program. 
small part of a long program. Don't be IG% is the first line to be renumbered. 
impatient, just be thankful you're not H% is the last line to be renumbered. | 
having to edit all the line numbers оп D$ is the new starting line number of | 
the screen - and. go and file your the renumbered part. | 
letters or read BEEBUG, while your M% is the increment of the line numbers | 
micro does the job for you. You won't in the renumbered part. | 
use this program every few minutes, but P$ counts the lines as they аге | 
when you get in a tight corner with jcenumbered. | 
ШИТИ ОТОО 
100 REM Program RENUM Version 1А 440 : 
110 REM Authors С & L Pettit 450 DEFPROCnewlines 
120 REM BEEBUG October 1983 460 ЕОКІ%-1ТО,%:Е%(1%)--1:МЕХТ 
170 М%-«Ей0:БЕМ This is for tape. For 470 N$-"***Must be numbers***" 
disc, N$-&1900 480 PRINT'"Give line numbers of first 
180 MODE7:PRINTTAB(6,2)"SELECTIVE REN and last"'"lines to be renumbered."''" 
UMBER PROGRAM" ей | Use the format e.g. 100,250" 


198 PROClines 490 INPUT" or ,250 (renumbers up to 
200 DIMES (1%) ,F% (1.5) ди = line 250) """ or 100, | (ditto from lin 
210 PROColdlines е 250 to end)"',GS,HS 

220 PROCnewlines 500 IFASCGS=-1 G-20:GOTO520 

230 PROCtest : 510 G%=VALGS : IFGS=GANDGS<>"@"PRINT' NS 
248 PROCline ren :СОТО480 


250 PROCinfill 520 IFASCH$--] Н%-Е%(1.%) :С0Т0540 

260 PRINT"Time = "TIME DIV1@@" secs" 530 H$-VALH$:IFH2-OPRINT'NS$:GOTO480 
270 END 540 INPUT'"Give new line number for f 
280 : irst line and increments (е.4.200,10) " 
290 DEFPROClines DS ,MS 

300 finish-FALSE:L$-0:C$2-N$ 550 D%S=VALDS :MS=VALMS : IFD£-QORM£-OPRI 
310 REPEAT | NT'N$:GOTO549 

320 IF? (C%+1)=&FF finish-TRUE:GOTO340 560 Р%-0:ТІМЕ-0 

330 C%=? (С%+3) ЗС: LZ=LS+1 570 PRINT'"Delay for processing" 

340 UNTILfinish 580 FORI$=1TOL% В 
350 ENDPROC 590 ІЕС%>Е%(1%)ТНЕМУ%-Е%(1%) :СОТО63@ 
360 : . 600 ІЕН%<Е%(1%) GOTO639 

370 DEFPROColdlines 610 7%-1% 

380 С%-М% 620 F£(I2)-D2-M$*P2:P$-P2-4] 

390 ЕОБІ%-1ТОІ% 630 МЕХТ 

400 Е%(1%)-(?(С%-1)) *256+? (С%+2) | 640 P%=D%+M%* (Р%-1) 

410 С%=С%+? (СФЕЗ) 650 ENDPROC 

420 МЕХТ 660 s 

430 ENDPROC 670 


BEEBUG MAG October 1983 Volume-2 Issue-5 


2 
When developing a 


under a new filename. This can be achieved automatically as follows. 
First, let 22-0, then program fø: *КЕҮЙ, 2%=7%+1 | MSAVE" PROG"+STRS (7%) |М 


680 clash-FALSE 
690 FORI%=1TOL% 
700 Q9-F$ (I$):IFQ$--1GOTO750 
710 FORJ%=1TOL% 
720 ІЕО%<Е%(0%) J%=L%:GOTO740 
730 IFQ%=E%(J%) PROCclash 
740 NEXT | 
750 NEXT 
760 ІЕ(7%-1) 21% Z$-L$-] 
770 IFD%<=Y% PRINT'"Your ranges overl 
ap!" :clash-TRUE 
780 IF(Z%+1)>L% OR р%>Е$ (1%) GOTO800 
790 ІЕР%>-Е%(27%-1) PRINT'"Your ranges 
overlap!":clash-TRUE 
800 IF clash INPUT'"Do you want to go 
on (Y ог М) "AS:1FAS«»"Y"ANDAS«»"y" EN 


810 ENDPROC 

820 : 

830 DEFPROCclash 

840 IFQ%<G% OR 0%>Н% PRINT"Clash іп 1 
ine ":Q%:clash=TRUE 

850 ENDPROC 

860 : 

870 DEFPROCline ren 

880 CZ=N% 

890 FORI$Z-]TOL$:F£-F$ (1%) 

900 IFFZ--1GOTO9390 

910 ?(С3+1) =Е%0ТУ256 

920 ?(C$42)-F$MOD256 

930 С%=С%+? (С%+3) 

940 NEXT 

958 ENDPROC 

960 : 

970 DEFPROCinfill 

980 finish-FALSE 

990 С%-М% 

1000 REPEAT 

1010 B£-?C$:IFB£-&20 С%=С%+1 :СОТО1010 

1020 ІЕВ%-1 ЗООТО1 080 

1030 IFBZ-&22REPEATC£-C$2-]:B-?C$:UNTI 
LBS=& 22 :C$=C%+ 1 :GOTO1 010 

1040 IFB$«&8B СОТ01060 

1050 IFB%=&8B OR В%=&8С OR В%=&Е4 OR В 
=&E5 OR В%=&Е7 PROCsub 

1060 C%=C%+] :ООТО1 100 

1070 РВТИТ“Во, 5$, T$ 


00 
1090 
1100 
1110 
1120 
1130 
1140 


1080 


IF ?(C$41)-&FF finish=TRUE:GOTO11 


С%Ф-С%--4 
UNTIL finish 
ENDPROC 


o 
bd 


DEFPROCsub 
C9$2C$41:B2-?C$:IFB$-&20 ORBS=&E5 


GOTO1 149 


1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 


IFB%<>&8DGOTO] 350 

СФ-С%-1:0%-0 
ВФ-?С%:5%-?(С%-1) : TS=? (C242) 
5%-5%-640 

Те (T£-&490) *256 

IFRZMOD&10-0 U£$-216384:R$-R$4&4 
IFR2-&54 R£-0:GOTO]2590 
IFR%=&44 R-64:GOTOl250 
IFR2-&74 В3=128:С0Т01250 
IFR2-&64 В%-192 

О%=П%+Е%+5%+Т% 
FORIZ-]TOL$ | 

ІҒЕ% (1%) <>О%СОТО131@ 

IFF% (1%) =—1 sGOTO1 300 
PROCinsert 

IZ=L% 

NEXT 

C%=C$+2 

B$-?(C$-1):1FB$-&20 С%=С%+1 : СОТО] 


IFB$-&2C С%-С%-1:60Т01140 
ENDPROC. 


DEFPROCinsert 

US=F3 (1%) 

V$-US$ 01\/&4000 

W3=U% МОр&4000 

б%-іМ% MOD64-4&40 

TZ=WS DIV256+&40 

U2-W$ MOD256 

М%-0% DIV64 

IFWZ-] W$£--&1l0:GOTO!480 
IFW$-2 W$-&20:GOTOl4890 
IFWZ-3 М4%-810 

RS=WS+& 54—4* VS 
2С%-Һ%:?(С%-1)-5%:?(С%-2)-Т% 
ENDPROC 


J.P. Carnell 


program 


When you wish to save the new version press Ей. This will save it ав PROGI, 
etc, 


used for this purpose as they are retained during program editing. 
not to use the variable Z$ anywhere in the program. 


it makes sense to save each new version of it 


PROG2 


with each subsequent depresssion of Ё@„ The resident integer variables must be 


Take care also 
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М ELECTRON 


by David Graham 


The Acorn Electron has been officially launched, and indications are that it will 
prove to be а popular machine. Ав we suggest in our editorial, we shall not be 
covering the Electron in BEEBUG Magazine - We have begun a separate user group for 
that machine, with its own dedicated magazine ORBIT. However, we feel that BBC users 
will be interested to hear how the Electron measures up to the Beeb. 


First of all, it looks as though the 


supply difficulties encountered by 
early BBC users will not be repeated 
with the Electron. Our review machine 
was a production model, and this is a 
good sign, as ік suggests that 
production lines have been gearing up 
since well before the launch. In other 
ways too, Acorn have learned from their 
experiences with the  Beeb. The 
packaging Пав been well thought 
through, and the documentation 1$ far 
better than that received by early Beeb 
owners. 


ELECTRON PACK 

Apart from the machine itself, the 
pack contains a large moulded plug with 
built-in transformer, a UHF TV lead, a 
‘Welcome’ cassette, and two books. One 
of these is a manual, very similar in 
Size to the Beeb manual. This is well 
planned, with a detailed list of 
contents. А strong minus point is its 
lack of index, and we would urge Acorn 
to append an index to the release 
version of the manual. The second book 
‘Start Programming with the Electron! 


by Masoud Yazdani . (published by 
Addison-Wesley) is an admirable 
introductory | text. What is so 


impressive about it is that it 
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three of the Electron's sockets are for 
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introduces fully structured programming 
right from the start. In the first 
chapter іс introduces the PRINT 
Statement alongside PROC and  ENDPROC. 
Procedures are fundamental to 


Structured Basic, and it is nice to see 
them being introduced in this way. Му 
one serious reservation about this book 
is again its lack of index іп the 
release version. 


The machine is well constructed, and 
has a good feel to it. It has a 
compressed ВВС keyboard (56 keys). 
There are no red function keys, but the 
user-defined keys are still 
implemented (press FUNC and one of the 
number keys simultaneously). When used 
with the alpha keys, the FUNC key 
allows direct entry of most Basic 
keywords. This is а useful facility 
implemented by the Electron's operating 
system. 


One way in which the Electron 
contrasts sharply with the Beeb is that 
it has only six connections with the 
outside world, whereas the model B 
positively bristles with connectors of 
various kinds. Somewhat unexpectedly, 
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the visual display (ОНЕ, video апа 
RGB). This leaves the power input 
socket, a cassette socket (with motor 
control), and an edge connector to be 
used with external interfaces. 


Acorn have a number of planned add-ons 
to upgrade the Electron to almost a 
model В and beyond, but these will not 
be available for several months. 


INNARDS 
Internally the Electron has a higher 
discrete component count than might be 
expected in a budget machine. There are 
two printed circuit boards - the power 
supply circuitry is separate from the 
main board, as on the BBC. The main 
board is dominated by а large 
square-format ULA chip, and alongside 
this a 6502А, a Basic ROM (the same as 
the Beeb's Basic II), a 16k Eprom 
containing the operating system, and 
four 64k bit dynamic memory chips. The 
Electron uses these as if they were 
eight 32 bit memories, though there is 
some loss of speed involved іп the 
process. The Electron thus has 32k of 
RAM, and since PAGE is set to &E@@ (as 
on the BBC micro) the user is left with 
17.75k of free memory in mode 6. In 
mode 2 this falls to a very small 5.75k 
(as with the Beeb), leaving precious 
little memory for program storage, and 
no immediate.hope of an add-on second 
processor to improve things. 


Severe economies have been made in 
whittling the model B down to ап 
Electron, yet these economies have been 
intelligently made, . with only limited 
loss of facilities. Thus although there 
is no 6845 video controller chip, many 
of its functions are carried out in 
software. What the software cannot 
achieve is the very fast hardware 
scrolling on the Beeb, and this 
together with the hardware sideways 
scroll have disappeared. Similarly with 
the SOUND апд ENVELOPE commands; 
software has taken over some of the 
functions carried out in hardware, and 
only two sound channels and опе 
envelope are available on the Electron, 
and the envelope lacks the last six 
parameters. | 


The mostnoticeable 'missing part' of 
the Beeb is the Teletext mode hardware. 
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6 are all implemented exactly as on the 
Beeb, and calling MODE 7 defaults to 
mode 6, the start-up mode. Тһе loss of 
mode 7 is a great pity for a number of 
reasons. It is both an economical and 
interesting mode, and moreover it 
brings compatibility with viewdata 
systems. Its exclusion on financial 
grounds is fully appreciated of course. 
Without mode 7, the most economical 
mode is 6, but this takes 7k more 
memory than mode 7, and does not allow 
multicolour screens. We would ада that 
one of the advantages of not covering 
the Electron in BEEBUG is that we can 
continue fully to support the use of 
mode 7 in our programs; without the 
disincentive of having to carry 
alternative versions each time that we 
carry a program using mode 7. 


SPEED LOSS 

Generally speaking the Electron 
makes up for missing hardware Бу 
incorporating extra software routines 
in the operating system to perform the 
same function. The inevitable 
consequence of this approach is loss of 
speed. This is most noticeable іп the 
Electron's screen handling іп the 
higher resolution graphics modes. And 
it is not only the act of changing the 
display which is time intensive, but 
even supporting the display takes extra 
time. For example, if the program 
TIMETEST is run on a BBC, the printed 
result is 476 (representing a time of 
4.76 seconds to perform the calculation 
of the sine two hundred times). This 
timing is, as we would expect, quite 
independent of the screen mode in use. 


Running the same program on the 
Electron gives a result of 558 when the 
screen is in mode 6, and a massive 1176 
in mode Ø. This single test suggests 
that the Electron can approach the 
calculating speed of the Beeb providing 


that the central processor (6502) is 


Volume-2 Issue-5 


14 


not given too much other work to do. Broadly speaking the Electron compares 


Programs which make use of the higher extremely favourably with these, 
modes will have to get around this іп offering a combination of excellent 
other ways. In some cases it may be text and graphics, two-channel sound, 
possible to do the bulk of the and a full typewriter keyboard. The 
processing while іп mode 6, and then promised add-ons should prove to be a 
change to a higher mode to display the further incentive in favour of this 
results. Machine code action games well designed successor the the BBC 
using mode 2 for example will need a micro. 


certain amount of rewriting to speed 
them up. 


The Electron lacks 
features of a model B: 
Printer port 


the following | 


THE COMPETITION 


This review has been presented in RS 423 
terms of а comparison between the Analogue port 
Electron and the BBC micro. Potential User port 
purchasers of the Electron will ] MHz bus 
generally not be making such Tube 
comparisons because the two machines Paged ROM sockets 
are in quite different price brackets - Mode 7 


Full SOUND and ENVELOPE 


even more во Since the phasing out of | 
(reduced implementation only) | 


the model A. The Electron's competition 
will be from machines such ав the 
Spectrum, the Dragon and the УІС-20. 


CHARACTER SET DEFINITIONS -  P.R.Eggleton, Andrew Armstrong, Matthew Rapier 


Redefining characters other than those above the normal character set has some 
very Strange effects. There is only room to store 1 block of 32 characters as soft 
characters at any one time. The first character you define appears to set which 
block of 32 characters is to be the re-definable one, and this works well, copying 
the existing character definitions into the soft space and re-defining as required. 
The problems come when you define a character in a different block. This results іп 
all the characters in that block being copied into the soft Space and the character 
being re-defined, but the ASCII codes which generate these characters are the ones 
for the first definition. This is not really a bug as you are not supposed to try 
and define characters in different 32 byte blocks. 


The correct method which does actually work is to use *FX20,n where ‘п! is the 
number of 32 character blocks which you wish to use for soft character definitions. 
Thus ХЕХ20,1 allows опе any of the characters in опе 32 character block to be 
re-defined, апа ЖЕХ20,3 allows characters in any three 32 character blocks to be 
re-defined. For maximum flexibility set *ЕХ20,7 which allows all printable 
characters to be re-defined. 


Whenever %ЕХ20 is issued all previously defined characters are re-set to their 
default values - recovering from wrong definitions. It is necessary to increase PAGE 
when using Basic programs to allow for the extra memory used by the soft character 
definitions. OSHWM is reset as needed. 


A simple method for setting PAGE correctly is to type: 
*FX20,n 
*BASIC 


BEEBUG MAG October 1983 Volume-2 Issue-5 


ested 9" gasics 
О вна 


LEFT N 


„055 Ae “CUSTO 


Joysticks are not 
consistent in their responses, that is; 
the position where you suddenly change 
from level flight to а nose dive is 


generally not the 
joystick. 


Same on every 


This program allows you to choose 
where the positions left, right, up and 
down are recognised, and so control the 
sensitivity of movement in a particular 
direction. This can then compensate for 


any tendency to e.g. veer left, апа 
also provides а means of using 
joysticks with апу program requiring 


non-proportional directional control. 


n Ж 
| f 

i 2 

| (ў 

[| 4 

ј у 


а1зо, of 
disorientate other players by swapping 


You can course, 
the directions from their 
North, South, East, West = Up, 
Right, Left convention. 


logical 
Down, 


RUNNING THE PROGRAM 


Setting up the joystick entails 
first moving the lever to the centre 
position and signifying this with the 
FIRE button. You will then have to move 
the lever in each of the four prompted 
directions and press the FIRE button at 
the point from where you wish that 
direction to be sensed. When all four 
directions are set up, the program will 
ion of the Joysticky as 


ISING YOUR JOYSTICK 
by D H Moncur and D Earlam 


maly 
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. (16k/32k) 


until the space bar is 
hit. S$ gives a perpendicular tolerance 
either side of each direction. This may 
be altered. 


it is ЕСЕГЕ 


To use these routines іп your own 
programs first call PROCsetupjoystick 
апа then call FNjoystickposition each 
time you wish to determine the state of 
the joystick. If FNjoystickposition = 
"RIGHT" then it is to the right, and so 
on. Your program must of course contain 
those definitions listed at line 1000 
и 


Фо e o ото o o 0 0 0 € 9 € ро а 9 € 9 € O 9 O е € O O O O d 6 O 09 6 9 9 е 9 0 9 до оо а е а а а ар ор а ово а е о ее, 
e" o^ o* o e^o a e a a e a a a o a a e e e e e o e ө ө э 0 0. ө ө 0 4 0 ө 0 0 4 ө 0 2 0 9 0 9 0 0 ө ө ө 9 € ө 0 2 09 9 0 9 a e 9 ө ө ө 
9,9, , 7," о ө ө о ө о ө о ө ө о ө ө е з = е ө э ө өсө % ө 0 9 ө ө e ө ө ө e 9 ө ө е «^ 6 ө ее» 
eee ee ө э е e e 0 e ө € 9 9 0 € 9,0 ө ө € ө ө ө о о 9 6 э е ө ө ө 9 ө ө ө ө 9 ө ө ө ө ө € ө ө 0 D ө е 9 € ө 9 ө 9 ө ө 9 0 9 о ө 0 € 


10 REM CUSTOMIZE JOYSTICK 
20 REM version 1A 
30 REM D.H.Moncur and D.Earlam 
40 MODE 7 
50 У0023;8202;0;0;0; 
60 PROCsetupjoystick 
70 REPEAT 
80 PRINTTAB(16, 12) FNjoystickposition 
90 UNTIL INKEY-99 
100 END 
118 : 
1000 DEF PROCsetupjoystick 
1010 DIM Х(5),Ү(5) 
1020 PRINT"CENTRE?" 
1030 REPEAT: CENTX=ADVAL (1) :CENTY-ADVAL 
(2) sUNTIL (ADVAL(@) AND 3) =1 
1040 FOR DIR=1 TO 4 
1050 FORQ=1 TO 1000:МЕХТ 
1060 IF DIR-] DS="UP" 
1070 IF DIR-2 D$z"DOWN" 
1080 IF DIR-3 D$z"LEFT" 
1090 IF DIR-4 DS$-"RIGHT" 
1100 PRINTDS"?" 
1110 REPEAT: X (DIR) =ADVAL (1) : Y (DIR) ADV 
AL(2) sUNTIL(ADVAL(@) AND 3)-1 
1120 NEXT:CLS 
1130 ENDPROC 
1149 : 
1150 DEF FNjoystickposition 
1160 JPS="CENTRE" :5%=10000 
1170 X=ADVAL (1) : Y=ADVAL (2) 
1180 IF X<=X(4) AND ABS(CENTY-Y)«S$"JP 
Ѕ="ВІСНТ " 
1190 IF Хо-Х(3) AND ABS(CENTY-Y)«S$ JP- 
Sz" LEFT Ww 
1200 IF Y»-Y(1) AND ABS(CENTX-X)«S$ JP 
$- и UP и 
1210 ТЕ Ү<-Ү(2) AND АВ5(СЕМТХ-Х)<5% JP 
$-"DOWN " 
1220 -JP$ 
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Why is machine code faster 


D INTERPRETE] 


by Sheridan Williams 


S i 
A NY ij 


D 


than Basic? What is the difference between a Basic 


Interpreter and a Basic Compiler? - Sheridan explains. 


A program written on the Beeb in 
Basic runs very slowly compared with a 
program that performs an identical task 
written in machine code. This should 
be easier to understand once you 
realise that the computer's natural 
language is a succession of binary 
codes - or machine code. The computer 
needs to look up each Basic keyword in 
a table to find the address of the 
machine code to execute. Algebraic 
expressions need to be ‘parsed’ to 
determine the order in which each 
operation сап ре performed. Рог 
example, іп 2*(3-4) the '+' must be 
executed before the '*', A good analogy 
сап be made by assuming that you (а 
person who only speaks English) are 
given a set of instructions written 
entirely in French. It will take you 
far longer to carry out those 
instructions because you have to find 
an interpreter to translate the 
instructions for | you. You could 
perform the translation yourself if you 
had a French-English dictionary, and a 
book on French grammar. When the 
computer translates from Basic into 
machine code it too needs a dictionary 
and a set of rules. Тһе computer's 
dictionary and rules come in two forms 
- an 'Interpreter' or а  'Compiler'. 
The Beeb's Basic Interpreter is already 
built in, and when you type RUN the 
majority of time that the computer is 
working, it is actually looking up the 


Basic keywords in a table and parsing 


expressions. 


One of the time consuming things 
about an interpreter is that it 
interprets every statement each time it 
encounters it, so if the program is in 
a loop it may repeat the interpretation 
dozens of times. 


Use *KEYØ, SAVE $ (РАСЕ+5) |М 


Returning to our but re-compilation as well 


PROGRAM SAVING - Anthony Stone 


analogy, if we need to use our 
instructions on several occasions, it 
will be much quicker to have them 
translated into English once апа for 
all (like a compiler) rather than to 
use an interpreter each time. One of 
the advantages, however, is that it 
does not require much spare memory to 
carry out the process, as it only needs. 
to remember the line currently being 
worked on. An interpreter also makes 
the language easy to use interactively, 
as changes to the program are easily 
made and tested. 


A 'Compiler' on the other hand will 
take the whole program and translate it 
into machine code in one go before the 
program is run. This means that the 
compiling process сап Бе performed 
separately from the running of the 
program, and need not detract from the 
running time. However, a compiler 
needs a relatively large amount of 
memory, or a disc system to perform the 
compilation, so that it can hold both 
the ‘source’ program (the original 
Basic program) and also the ‘object’ 
program (the equivalent machine code 
program). The great advantage of a 
compiler is the speed of execution of 
the resulting machine code program. 
This could be as much as 30 times 
faster than an interpreted program, 
though a program written directly in 
machine code might be twice as fast 
again, if well written. The source 
program is no longer needed for running 
purposes, and does not need to reside 
in the computer. This offers the 
advantage of protection for the author, 
as the machine code 15 unintelligible 
to most people, but the disadvantage is 
that changes require not only editing, 


This requires the first line of the program to contain 


1 9REMNAME 
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where NAME is the program name. 
Thus the function key will save the program under the name given as its first line 


October 1983 


Volume-2 Issue-5 


"y 
H | 
д ЈА 


Sc) 


e L) 2. 
қосам о о одо о о ө 49455945 ео ео ое ое еце ө "ө о ө е ө ө ө ә өгө aT САДАХ ө ө е ө о-о э о ө а ө ө ө ө о е ө е 


Product: Instant BBC Machine Cod 
By: Jeremy Ruston | 


Supplier: INTERFACE, 44-46 Earls Court 


Rd, London, W8 6EJ 


Prices: £34.95 inc VAT 
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This review is based on tests of the 
compiler carried out at  BEEBUG, but 
also includes the comments sent in by 
several members who have purchased the 
compiler. In particular I would like to 
thank Philip Morris, Koenraad Rutgers 
and Trevor Baker. 


This compiler is written in Basic, 
and is unusual, compared with others 
that I have used, in that it only 
Supports a limited subset of BBC Basic. 
The instructions supported are: LET CLS 
CLG COLOUR MODE DRAW MOVE END GCOL GOTO 
GOSUB IF...THEN...[ELSE] OFF PLOT PRINT 
REM RETURN SOUND VDU FOR. o o NEXT 
REPEAT. .. UNTIL INPUT *FX CALL. 

The functions supported are: ADVAL 
INKEY RND ТАВ(х,у). 

Operators are: 
+ * ~ AND, OR, # (meaning not equal 
to), and the square brackets. 

Variables allowed are А%-7% (or  A-Z) 
and only integer arithmetic is 
supported. You should also be aware 
that some of the instructions are used 
in slightly different ways to normal. 


Ruston also says that programs 
should be written with the compiler in 
mind, rather than developing them in 
ordinary BBC Basic and then converting 
them for compilation afterwards. This 
is sound advice in this case, but only 
because of the limitations of the 
compiler. It is true that most Basic 
compilers require a few changes to Бе 
made to the program that runs in 
interpreted mode, but using this 
compiler, programs require a major 
rewrite. This could probably Бе 


tolerated in a compiler costing less 
than £19. 
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by Sheridan Williams 


Ruston's compiler, although missing 

many of BBC Basic's standard features, 
has a feature called "Sprites": to 
quote from the book: 
"These new statements only work іп 
MODE 4.... Sprites are objects defined 
on an 8x8 grid - exactly like the 
user-defined graphics you are used to. 
The difference being that sprites can 
be moved around the screen without 
disturbing what is on the screen 
already." This could be useful in a 
games context. 


The compiler .uses large amounts of 
memory, (which is understandable,) and 
makes compiling programs in memory 
impossible for all but the shortest. 
In reality compilation must be done 
from disc/cassette. The compiler is a 
"three pass" compiler, and requires the 
file to be read three times, on disc 
this is no problem, but from cassette 
it requires rewinding the cassette 
three times. 


The manual is cheaply produced using 
print from a matrix printer, it is 
accurate and. fairly easy to follow. 
There is also а listing of the 
compiler; using this it is possible to 
reduce the length of the compiler (by 
removing redundant lines, REMs, and 
unnecessary spaces). This makes it 
possible to compile far larger programs 
in memory. | 


CONCLUSION 

The compiler works well and produces 
quite fast running object code, which 
typically runs between 5 and 8 times 
faster. Оп the whole it is a rather 
expensive piece of software, the price 
means that it is for specialists only; 
and my impression is that it is far too 
expensive for the limited subset of BBC 
Basic that it supports. 

We should also point out that 
Interface require royalties on апу 
program developed using this compiler. 


[This sounds rather like a piano maker 
wanting a royalty on every piece of 
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thought. 


SPEAKING PHRASES 


As suggested in our review of the 
Acorn speech upgrade (BEEBUG Vol.2 No.3 
P.14), the speech synthesiser can be 
called up either from machine code 
(using OSBYTE and OSWORD calls) or 
direct from Basic using variants of the 
SOUND command. The simplest Basic call 
takes the form: 


SOUND -1,N,0,0 


The -] indicates that the call is to 
the speech synthesiser, and that the 
vocabulary is in PHROM A (ie PHrase ROM 
A). The manual details this more 
fully. 


If you want to produce a string of 
words - or a number of strings, then а 
routine of the following kind may prove 
to be useful. This one speaks the 
words: "Press any key to start", 


100 READ Т 

110 FOR A= 1 TOT 
120 READ N 

130 SOUND -1,М,0,0 
140 NEXT 


150 DATA 5,246,168,212,50,260 


The word codes for the words to be 
Spoken (obtained from the speech system 
user guide) are held in the data 
Statement at the end. The first item 
(read in as T) is the total number of 
words that are to be spoken together. 
Any combination of words and numbers 
can be strung together in this way, and 


you can insert a pause with Data of the 
value 127. 


NG THE SPEECH SY? 
by David Graham 


NTHESISER (16k) 


David Graham describes two routines for calling the speech 
synthesizer from Basic. The first is a simple method of 
generating a string of spoken words. The second is a set of 
procedures which can produce spoken numerical output in the 
range -999999 to +999999. This latter task, which has 
applications in speaking clocks, spoken games scores and in 
the educational field is not as easy as it might first Бе 


SPEAKING NUMBERS. 


Making the speech unit count, or 
speak numbers chosen at will, is 
somewhat more difficult. The problem 
arises because a routine is required to 
recreate any given number in exactly 
the way in which it is spoken. Take 
for example the number 21119. It is 
fairly easy to make the machine give 
the number ав Two Опе One One Nine. 
But this is somewhat uninspiring, and 
all the facilities exist to speak the 
number aS we normally speak it. To 
achieve this а routine would be 
required to add the following pieces 
together: TWEN TY ONE THOUSAND ONE 
HUNDRED AND NINE TEEN. 


The series of procedures listed 


below from line 1000 onward achieves 
this for numbers between -999999 and + 


999999. The main procedure 
PROCspeaknumber (N) is used in 
conjunction with a set of other 


procedures which handle the ranges of 
numbers indicated in their procedure 
names. If a number is out of range, 
you will be told so verbally. At 
present there is по facility for 
treating decimals, but this would be an 
easy addition, since these are spoken 
as a series of straight digits (ед - say 
to yourself 118.118). 


AS ап example of its use the 
procedures are preceded by a 5 line 
program which repeatedly calls the 
procedure PROCspeaknumber to count from 
Ø to 999999. AS you сап see, 
PROCspeaknumber is called with a single 
parameter (N). This is the number to b 
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1210 RESTORE:FORA-] TO 5 


In more interesting applications, 1220 READ word 
the Beeb's TIME function could be used 1230 PROCspeak (word) 
to create а speaking clock, or 1249 NEXT 
PROCspeaknumber could be called to give 1250 ENDPROC 
scores in a game or to set and answer 1268 : 
arithmetic problems in an educational 1270 DATA 229,127,143,127,214 
program. 1289 : 
[LETTETTATETITITETTITLTETE ОА 1111 ITI T TTTTIT] 1290 DEFPROCunits (N) 
10 REM COUNTING ALOUD 1300 PROCspeak (N+48) 
20 REM Version 1.1A 1310 ENDPROC 
30 REM David Graham 1320 
40 REM THE 5 LINES BELOW 1330 DEFPROCtentotwelve (N) 
50 REM DEMONSTRATE THE 1340 IF №10 №264 
60 REM PROCEDURE 1350 IF N-11 №190 
78 : 1360 IF М-12 М-273 
80 FORN-] TO 1000000 1370 PROCspeak (N) 
90 PROCspeaknumber (М) 1380 ENDPROC 
100 PROCspeak (127) 1398 : 
110 NEXT 1400 DEFPROCteens (М) 
120 END 1410 PROCspeak (2*N- 1249) 
130 : 1420 PROCspeak (135) 
1000 DEFPROCSpeaknumber (М) 1430 ENDPROC 
1010 IF N<@ PROCnegative (М) :М-АВ5(М) 1440 : 
1020 IF N<1@  PROCunits(N) 1450 DEFPROCtens (N) \ 
1030 IF М>-10 AND М<13 PROCtentotwelve 1468 PROCspeak((N DIV 10) *2+140) 
(N) 1478 PROCspeak (137) 
1040 IF N>=13 AND N<2@ PROCteens (М) 1480 IF М MOD 1050 PROCunits(N MOD 10) 
1050 IF М>-20 AND N<1@@ PROCtens (М) 1490 ENDPROC 
1060 IF М>-100 AND М<1000 PROChundreds 1500 : 
(N) 1510 DEFPROChundreds (М) 
1070 IF М>-1000 AND М<1Е6 PROCthousand 1520 PROCunits(N DIV 100) 
S (М) 1530 РКОСѕреак (140) 
1080 IF N>=1E6 PROCoutofrange 1540 IF М MOD 100<>0 THEN PROCspeak (97 ) 
1090 ENDPROC . 1550 IF М MOD 100<>0 PROCspeaknumber (М 
1100 : MOD 100) 
1110 DEFPROCSpeak (P) 1560 ENDPROC 
1120 SOUND-1,P,0,0 1570 : 
1130 ENDPROC 1580 DEFPROCthousands (М) 
140: 1590 PROCspeaknumber (М DIV 1000) 
1150 DEFPROCnegative (№) 1600 PROCspeak(44) 
1160 PROCspeak (219) 1610 ТЕ М MOD 1000»0 AND М MOD 1000<10 
1170 PROCspeak (127) @ РКОСѕреак (97) 
1180 ENDPROC 1620 IF N MOD 1000<>0 PROCSpeaknumber ( 
1190 : М MOD 1000) 
1200 DEFPROCoutofrange 1630 ENDPROC 


А VISUAL VERIFY - R.D.Smith 


Rather than use the *LOAD "" 8000 to verify a program or data file, an 
interesting alternative is 


MODE 1 

*LOAD "" 4400 

(Note that when using discs the quotes Should contain the appropriate file name.) 
The result is colourful, and gives а visual indication of the file length. 
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UTER GAMES 1 EVIEWEL 
by Alan Webster 


Alan Webster reviews a new batch of games, and finds them all to be above 
average. 


АКК 292522922242 


Name : Killer Gorilla Killer Gorilla is a very well 
Supplier: Program Power written version of the arcade game 
Price : £7.95 inc. VAT Krazy Kong. Having only watched the 
Rating : ***** arcade game and not played it, I found 


the game both compelling and difficult. 

The game revolves around trying to 
rescue a maiden from the reaches of a 
gorilla, and to do this you have to 
negotiate a series of ladders, conveyor 
belts and walkways whilst trying to 
avoid the fireballs, barrels and many 
other objects. | 

There are four different screens in 
all, and after completing the fourth 
Screen the game restarts but is a 
little different than before. 

As an avid games player I would 
strongly recommend this game to anyone 
(although the key layout requires 3 
hands!) because at its low price it is 
certainly excellent value for money. 
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Name : Swoop Name : Android Attack 
Supplier: Program Power Supplier: Computer Concepts 
Price : £7.95 inc. VAT Price = £8.95 inc. VAT 
Rating : *** Rating : Кажи 


Swoop is yet another cross-version 
of Space Invaders / Galaxians, but 
better than most versions around. 
Rolling two games into one always seems 
a good idea, but very rarely pays off. 

In Swoop you have to shoot the 
aliens who move across the screen 
Invaders style. Then one breaks off and 
'Swoops' down to bombard your base. If 
the alien misses, it plants an 'egg' 
which restricts the movement of your 
base aS you cannot cross over these 
eggs. After a short time the eggs 
explode. 

Although not опе of the most 
exciting games, it is certainly hard, 
and good value for money. 


Android Attack is an very well 
written game and is very difficult to 
play. It requires great dexterity and 
quick thought апа must Бе ranked 
amongst the hardest games around, 
especially at skill level 19. There are 
so many different features of this game 
that there is just not enough space to 
describe them all, and the number of 
different characters to be found in the 
game (I don't know if I even found them 
all) is quite astonishing. 

The game involves the player's man 
(and it looks realistic) running around 
a maze shooting at different types of 
android, whose graphic representation 
is stunning. The player must shoot or 
blow up the androids to stand any 
chance of winning. A high quality game 
worthy of any games library. 
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Name : Space Adventure * Name : Moonraider 
Supplier: Virgin Games x Supplier: Program Power 
Price : £7.95 inc. VAT ж Price : £7.95 inc. VAT 
Rating : ***** x Rating : **** 

x 


At last, a comparable 'Scramble' 
game to that of Acornsoft's Rocket 
Raid. Moonraider Пав some good 
colourful graphics, and is а smooth, 
fast free-flowing game. Unlike Rocket 
Raid, you can choose which section of 
the game to start on, and you can also 
choose the difficulty. A nice touch is 
added at the end with the inclusion of 
a smiling face. Because the game is 
inexpensive and very good, I might be 
tempted to place this above Rocket Raid 
as the top Scramble game. 
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Name : Starship Command 

Supplier: Acornsoft 

Price : £9.95 inc. VAT 
This is an 87 room adventure with а Rating : **** 


difference. It is entirely in animated 
graphics. The game involves you trying 
to find four crystals inside a deserted 
space ship. These crystals are hidden 
behind four locked doors, the keys to 
which are strewn around the ship. 

Your progress is repeatedly 
hampered by androids who shoot to kill 
you. If you are not careful your life 
support system will become drained and 
you will die. You can however shoot 
back at the androids with blasters and 
phasers, but these too have a limited 
supply of power. 

Randomly positioned around the ship 
are power-packs which can be used to 
re-charge either your life support 
system, your blaster or your phaser. 

Overall, an excellent game, with 
the smoothest graphics I have ever 
seen; and a very good cassette from 
this new software company, a subsidury 
of Virgin Records. 


Starship Command is a 'Star-Trek' 
type game with a difference. It is also 
a full graphics game in which you have 
to pilot a succession of spaceships 
through space in order to obtain 
points. You collect points by killing 
enemy ships which hover around you 
menacingly. The game is one of the best 
'non-arcade' style games that Acornsoft 
produce, and 15 well worth buying, as 
the graphics, speed, and on-screen 
presentation are very near perfect. 

The only drawback (there has to be 
one!) is that there are more controls 
than you have fingers. 


АУУЗ 
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COUNT - Peter Lusmore 

The COUNT value is only incremented when Basic is used to print. If output is 
occurring from machine code through OSWRCH directly then the value of COUNT will be 
incorrect. To allow for this you can increment count directly. It is stored at &1Е. 
Note that this location can be modified directly on a tube System as this is part of 
Basic workspace and so can be modified as normal memory in the tube memory Space. 


This address is correct for Basic I and Basic II, though later releases may use a 
different location. | | | 3 
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INVISIBLE ALAI 
by Gordon Weston 


——— —€———————— P 
The Alarm p listed bel 111 


sit invisibly in your machine апа 
produce a beep after a predefined 
delay. This can be anything from a 
fraction of a second to several hundred 
years (though this latter has not been 
tested - yet). The alarm is not 
affected by the running of Basic or 
machine code programs provided Break is 
not pressed or the memory used і not 
overwritten. | 

When you run the program it asks for 
a time in seconds. Just enter this, and 
sit and wait. If you require delays 
greater than a year and a third, then 
you should alter the FF in line 80. 

If you wish to execute your own 
section of code after this time delay, 
rather than generate а beep, then 
delete lines 50 and 60 and 130 to 200, 
and set lines 90 and 100 to point to 
the low and high bytes (currently 7D 
and 0) respectively of the start 
address of your code. 


Explanation: 


The time is set as 5 bytes in lines 


70 and 80, the counter scanning upwards 


ANSV 
ACROSS 38. ОРТ 
1. COMPUTER 40, COUNT 
4, ATN 42.MODES 
7. HARDWARE 43. PRINT 
11. ADVAL 44.CR 
12. POS 45. IF 
13.CLS 47.NO 
15.0FF 48. OR 
17.DIV 50. PLING 
18.ON 52. LOCAL 
22.FA 54.JIM 
23. LOMEM 56. CYAN 
25. ARGUMENTS 57.AUTO 
27.UNTIL 58. ONE 
29.MOD 59. CONTROL 
30. ERL 62. EXP 
64. ERROR 
66. TAN 
68. INPUT 
70. INKEY 
71.GOSUB 


СЕНВОС МАС 


and call OSWORD, producing the beep. Se 
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from the negative value given to zero. 
&7C contains the high byte and &78 the 
4 low bytes. 

Line 40 enables the interval timer 
crossing zero event. Lines 50 and 60 
set up а control block in memory (870 
to &77). This control block defines the 
sound parameters to be used. Lines 90 
and 100 set the indirect vector to 
&007D. Line 110 sets up the OSWORD 
parameters with A=4 (see User Guide 
page 460). Line 120 calls OSWORD. Тһе 
assembly language at lines 140 to 200 
set the pointers to the control block 


DOWN 41.0SFILE 
“TJ. CAPSLOCK 46. TILDES 
2.MOS 49. ECONET 
3.UNCOMMITTED LOGIC ARRAY 5].LIST 
4. ADD 53. INC 
5. TV | 55. VAL 
6. NAK 58. 0SCLI 
8.DEFAULT LOGICAL COLOURS 60.NOT 
9.AND 61. RUN 
10. ENVELOPE 63. POUND 
14.LN 65.0LD 
16.FF 67.ACS 
19.SGN | 69. NEW 
20. AMPLITUDE 
21.RND 
24.МАР 
25. ADDRESSING 
26.SERIAL PORT 
28. TOP 
35. MACHINE 
36.NETWORK 


39. ESCAPE 
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The lined: CTI, Star DP840 and the NEC PC-8023B- С 


Shinwa-CTI СР-80 Printer 
Reviewed by Charles R.W. Lyne 


Price: £332 inc VAT. 

Supplier: Key Computer Centres Ltd., 
Enterprise House, 
Terrace Road, 
Walton-on-Thames. 


The СР-80 is made by a Japanese firm 


called С.7.1. (Creative Technology 
International Inc.), and seems to have 
been designed as a drop in replacement 
for the MX-80 in almost all situations. 


To this end, all the many software 
features are identical in operation to 
the Epson, making it very convenient 
for those who have programs and word 
processors already set up for the 


Epson. 


The hardware is outwardly similar to 
the Epson, being 377 (W) x 295(D) x 
125(H) millimetres in size, and 5.3 Kg. 
in weight. The paper feed knob is on 
the left, but the switches/indicators 
are, familiarly on the front right 
corner. The controls are:- 


On/Off Line Form Feed Line Feed 


(The two feed switches are only 
operative when the printer is "Off 
Line"). 

Indicators:- 


Power On Оп Line Ready Paper Out 


ВЕЕВОС M 
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Maximum print speed is the same as 
the Epson, at 80 c.p.s. (the new Epsons 
are faster); and it has the normal 
80 character standard print width, 
though the characters are slightly 
smaller, so the eighty characters take 
less of the paper's width. This 
feature also allows the compressed 
character format to have up to 142 
columns. The double width characters 
are still limited to 40 columns. 
Unlike the standard Epson, the paper 
feed mechanism has options for tractor 
feed (sprocketed paper) and friction 
feed (single sheets) at no extra cost. 


Interface options are nominally the 
same ав іп the Epson, i.e. parallel 
(Centronics) built in, and a variety of 
RS232 interface boards by Epson and 
other manufacturers are supposed to be 
directly compatible. There does appear 
to be a problem at present though with 
the design of the printer electronics, 
which are not fully compatible with 
standard Epson interface boards. In 
fact, the printer will be damaged if a 
standard RS 232 interface is connected! 
This of course is less likely to 
affect! BBC "B" users who have the 
parallel interface available as 
standard. It is worth noting that the 
effective baud rate of the parallel 
interface is up to about 40,000 baud, 
so the data transfer part of the 
printing operation is faster than on an 
unbuffered RS 232 interface. 


Other facilities of note are, the 
characters, 


italic compressed 
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characters, emphasi zed 


double printed characters, and 
combinations of these options. 


The СР-80 also has superscript, for 
mathematical formulae апа subscript, 
for chemical formulae and other 
applications. | 


This printer does not һауе the 
international character sets, 
Selectable under software control, as 
the Epson does, but the £ sign is 
character number 129, which is of 
course, easily defined from Wordwise 
using the "DP129" command, or in Basic 


ВЕНИТЕ 


МЕС РС-8023В-С Printer 
Reviewed by Mike Williams 


Price: £368 inc VAT 
(see note after review). 
Supplier: Technomatic Ltd 
17 Burnley Road, 
London МАЛИ 1ED. 


This NEC dot matrix printer is an 
attractive and compact model. The main 
on/off switch is at the side with the 
other main switches and warning lights 
at the front. Unlike some printers, 
when first switched on the printer is 
not on-line and has to be selected by 
means of the SEL switch. The front 
panel switches, when the printer is 
deselected, provide Line Feed and Тор 
of Form functions. The printer has a 
standard parallel interface for 
connection to the BBC Micro. 

The printer will take either 
friction fed or sprocket fed paper. The 
cover is in three parts which are 
removed for paper and ribbon changing 
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as "CHRS(129)". There is also a 


command for continuous underlining and 
a useful range of graphics characters 
is provided. There is also а hardware 
option for producing slashed zeros. 


The mechanical апда electronic 
construction appears to be very sound, 
but the design of the case leaves a 
little to be desired concerning access 
to the internal switches. In 
conclusion, a good printer which 
compares favourably with the many other 
80 column printers, but at the same 
price as the Epson printers, I 
personally would buy an Epson. 


hinged perspex paper cutter has a very 
coarse serrated edge and a lot of 
flexing occurred in the cover when 
refastening the paper cutter. Apart 
from this both friction and sprocket 
feed worked well. 

The DIP switches are situated, 
unusually, inside and at the bottom of 
the machine. There are two switches 
covered Бу a clear plastic strip which 
clearly labels the two switches. 


However, access to the switches means 


reaching through the the wires which 
move the print head backwards апа 
forwards, and this was quite awkward, 
to say the least. One interesting 
feature is that any of 5 different 
character sets сап Бе selected 
including UK, German and Swedish. The 
European character sets also include 
the Greek alphabet as standard which 
could be useful for scientists and 
mathematicians. 

Printing speed is normally 100 cps 
and the printer produces quite а 
variety of whining noises while working 
(indeed some ingenious programmer might 
even be tempted to make it play 
musici). 

The printer is able to print Pica 
(10 cpi. 80 ch. per line) and Elite (12 
cpi. 96 ch. per line) characters and to 
print both of these condensed and 
enlarged. Іп addition, proportional 
Spacing сап also be selected and 
characters can be enhanced and/or 
underlined. You can set up to 16 
horizontal tab positions and up to 6 
vertical tab positions, useful for 
printing standard formats. As well as 
the normal character set, the printer 
will produce dot mode graphics, though 
apparently not compatible with that of 


ЕЗ _ 


uem 


Volume-2  Issue-5 


25 


Epson printers. The printer also has an 


internal graphics character set which 
includes the symbols for the card suits 
(hearts, clubs, diamonds and spades) 
and various other shapes. Teletext 
graphics characters are not available 
nor can characters be defined by the 
user. | 

The handbook supplied with the 
printer is quite comprehensive but 
could be improved. Elementary things, 
like how to remove the top cover are 
missing and the general layout makes it 
difficult to locate specific pieces of 
information quickly. 

All in all this is a very reasonable 
printer for the price. It looks well 
made and provides a full printing 
specification as one would expect at 
this price. There are just a few 


niggles as mentioned above that could о 
have been avoided Бу slightly better 
design and construction. 


SPECIAL OFFER 

We are very grateful to  Technomatic 
for loaning us a printer for review and 
their good co-operation at other times. 
Technomatic will sell the NEC printer 
to BEEBUG members at the special price 
of £358 inc VAT plus £8 for carriage 
until the end of October. Send your 
order direct to Technomatic and quote 
your BEEBUG membership number ,referring 
directly to this review.  Technomatic 
do, of course, supply many other types 


of printer. 
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STAR DP849 Printer 2. does not have lower case 
Reviewed by Ian Gilbert j ° 


Printing speed is fast at 80 
characters рег second and is 
bi-directional with logical seeking. 
This combines to give rapid printing of 
large programs and documents, the 
characters being very clear and 
readble. The print ribbon is contained 
on two standard typewriter reels. 


Cost: £276 inc VAT. 
Supplier: CJE Microcomputers, Worthing. 


It prints at 80, 96 or 132 
characters per line and has a double 
width printing option. Although the 
print is condensed at 132 chrs/line it 
is still clear and useful for producing 
large tables of information. 


Centronics or RS232 interfaces are 
available for direct connection to the 
BBC Micro. The high resolution 
graphics аге available by changing the 
printers character ROM. This ROM is 


This is a dot matrix printer with 


tractor and friction feed, weighing а produced by  CJE Microcomputers of 
sturdy 8.5kg and reasonably quiet in Worthing (Tel 0903 213900) who can also 


operation - the plastic cover reducing 
the noise from the print head. It is 
easy to use with A4 sheets of paper or 


supply the printer with the ROM and 
lead for around £260 incl. delivery. 


tractor feed paper. (Sizes from 3" up I have been using this printer for 
to 10"). Printing is by а 9 Бу 7 dot nine months and have found it ап 
matrix with all characters, block invaluable aid to programming. It 
graphics and an international character produces clear and rapid print and 
set. (A high resolution graphics although it does not have lower case 
option for screen dumps is available). decenders it is good value for money. 


USING AN OKI 80 WITH WORDWISE -  L.Schapira 
When using this printer with Wordwise it is necessary to execute *FX6,13. This 
Solves problems of generating spaces between parts of the text. | 
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NMI and 8000 -  C.Marshall 

On 0.5. 1.2 the NMI (non-maskable interrupt) routine is put ас 5000, Because of 
this the 0.5. puts ап RTI instruction there as its first action on Break, and the 
DFS will write its own NMI routine there as well. Thus code put at &D0O will be 
corrupted when Break is pressed. Writing to anywhere in the 6000 block with any 
filing system ROM present could destroy memory or crash the filing system. Not only 
is the NMI routine in this block but also an extended vector Space and pointers to 
the beginning of private work space areas. 


АКАХАХАХАХАХХ АХЛ *o" o" o" o" e a o a" b eo" o" o" e" e" o" e" o" a o" o" a a" e a" e a a e E A RATE umm mmn 07470767072 07a 2700 07670" a" ы ы e a" t" a" еее ele са eee eee ооо о" n 
*'*9990225206009€0099020202799$,9,9,9,9. 2.2... ео оо ее оооо о о оо ооа өө ө ә ө ө ө өөө өөө ө ө ө ө ө ө ө, a a ne a ate ae a”, aS a" a a aa 2... PL Pata a n a aO M aC at COR ө a е е ө ө өсө ө ө ө е ө өө есеге е «аз оттоо ою ово» о 


COLOURED VIEW DISPLAY - S.Fagg 

The usual way to change the colour of the display in modes other than 7 would be 
to use the VDU command, however VIEW does not support this. To get at the colours 
you must use the control characters more directly e.g. 
*KEYO,|S|A|Bl aj 8| 8| M etc. 
This will give green text on a black background when #0 is pressed in command: mode. 


While in text mode the function keys are disabled, they may be re-enabled with 
*FX225,] 


BEEBUG MAG October 1983 Volume-2  Issue-5 


ТА 


E RECORDERS REVIEWE 
By Mathew Rapier 


27 


We reviewed four tape recorders for the BBC Micro in BEEBUG Vol.2 No.1. (The 
ССВ800 model from W.H.Smith reviewed then is still available and remains a good buy.) 


We now review the new Acorn Data Recorder, 
model, and a rather more expensive recorder 


THE ВВС. 


SUPPLIER: Vector Marketing 
COST : £29.90 inc VAT 


This new recorder 
Ferguson  3TO7 recorder supplied by 
Acorn. It is not, contrary to rumour, a 


digital recorder. The пате DATA 
RECORDER does not appear to signify any 
radically new design. Externally the 
BBC recorder is coloured to match the 
computer and is reasonably well 
presented with all the controls at the 
front together with the easily readable 
VU meter. The tape counter, however, is 
behind the tape and is rather small and 
hard to read. On the review machine the 
finish is already coming off giving a 
rather battered look despite only а 
small amount of use. All the standard 
controls are present including pause. 
It is unfortunately not possible to 
"сце": i.e. have play and fast forward 
down at the same time, a facility which 
would greatly speed up searching for 
programs. 


Being designed for use with the BBC 
micro, this cassette recorder has only 
a single 7 pin din socket. The record 
and playback levels are fixed so that 
you cannot set them incorrectly. The 


BEEBUG MAG 


_MICROCOMPUTER _ DATA 


replaces the 


and is still in good condition. А11 the 


October 1983 


which replaces the previous Ferguson 
from Marantz. 


result of this is that the user has no 
control whatsoever on the levels used 
by the recorder. The volume and tone 
controls only affect the speaker output 
so that you can listen to your program 
loading quietly. The machine has motor 
control, working through the 7 ріп 
connector. Unfortunately there is no 
override on this so that you are forced 
to use the computer's motor control 
commands to rewind the tape. This can 
be very  inconvenient. Most tape 
recorders have the motor control on a 
separate plug which can be easily 
removed. 


The Welcome tape supplied with the 
micro loaded first time, but a program 
recorded on this tape recorder was NOT. 
reliable, one block needing a second 
attempt. One of my own tapes would also 
not load at all, having difficulty even 
getting the name of the file correct. I 
found this very surprising, but I could 
probably have got the tapes to load if 
there had been some control over the 
tape recorder's output. It is 
inevitable that there will be some 
variations between ВВС micros апа 
between the tape recorders themselves 
and, with no control at all, these 
variations cannot be compensated for. 
It is а pity that а tape recorder 
specially produced for use with the BBC 
micro is not more reliable in use. It 
could probably be used for music quite 
successfully as the sound quality is 
reasonable, though the lack оғ a 
microphone limits its use іп other 
areas. 


‚өчө чесе те эө TT ROT al ed el ee = M NR 


оо оо ө ө e a o € € о о оо о о 60 оо E о о о O € о о о о е ө o о о © o o o a о о, 


o 0 е о е о о о о 
0° 00000 08 е о о о ө ө ө o © оа оо 0.6 ө о € O € о O ө о 8 о O о о © о о е е ө ө э о ө о е o о o ө о ө o a е e cs e a o 
оо 90009690909 o о ө о оңо a ө о ө оо ө 9 е е 9 оо о е о е е о о е е е е 9 6 9 о о 9 о ро а DE оо е о о оо а е оо виа 


SUPPLIER: Comet 
COST : £42.99 inc VAT 


This tape recorder is the top of a 
range of Superscope machines. It is 
well built with a tough finish. My own 
Superscope is two and a half years old 
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Standard controls including pause are 


there, and a "cue and review" facility. 
The latter is the ability to fast 
forward or rewind whilst in play mode, 
which considerably eases the finding of 
programs in the middle of a tape. A 
standard set of jack sockets and a DIN 
Socket are present, and the machine 
works reliably with both. There are 
also recording level and variable 
playback speed controls. Тһе tape 


counter is large but in the wrong place 


to be read easily. 


The user has complete control over 
recording and playback levels. The 


volume and tone controls both affect 
the output level to both types of 
connector and these settings can be 
varied for different tapes, though they 
are not particularly critical. The 
manual recording level is very useful 
as automatic level controls are usually | 


Cassette programs to disc - Vol.2 No.4 


We must apologise for an editorial 
error in this article. In attempting to 
clarify things(!) we have confused the 
file length with the load address in 
two statements. То get it right, 
replace both occurrences of the 
expression: 


FILENAME 05 0585 FFFF1111 FFFFeeee 


with 


FILENAME 05 1111 FFFFxxxx FFFFeeee 


confused by computer output. A Setting 


out, 
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of +1 dB on the VU meter gives very 
reliable operation. When using the DIN 
output the noise also goes to the 
Speaker. This requires the use of a BBC 
User Guide on top to keep it down to a 
reasonable volume. If the jack outputs 
are used then there is no noise output 
from the speaker, but the sound of the 
program loading сап prove very useful 
when trying to find a program. On 
recording there 1$ silence, just the 
movement of the meter showing that data 
is coming in. 


This tape recorder appears to Бе 
able to load anything. With creative 
use of the volume, tone and variable 
playback speed even the most appalling 
tapes can be read. I have found the 
variable speed extremely useful on some 
commercial tapes. In use, for recording 
programs as well, complete reliability 
is the norm. I quote a letter from 
Mr. T.Bromilow - "I can report that 
after 12 months quite heavy use, I have 
never lost, to my knowledge, a 
Single-bit ~ and I've never cleaned the 
heads", My own experience with the 
Superscope and that of people I know 
who use it with other computers is 
exactly the same. This machine can be 
strongly , recommended, though it is 
fairly expensive at around £49. 
Unfortunately, it is absolutely useless 
for music reproduction as it sounds 
dreadful, but don't be put off. I have 
never encountered a file that could not 
be loaded with this machine. 
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There is a problem with this program 
when the line number falls between 3328 
and 3583 (5000 and &DFF). The problem 
is that one byte is equal to 13, the 
code for Return. To solve this problem 
type in the following line: 


900 FORJ$-I$-] TO 12-254 STEP-]:IF ?(J$ 
-2)-13 AND ?(J%-3)<>13 AND ?(2%-4)<>13 

PRINT AST$;?J$4? (J$-1) *256, ; :J$&-I$-254: 
IF DISPSX$-IS-K$:PRINT" ";:REPEAT:Y$-?X 
$:PRINT CHRS (Y$);:X$-X$4-]1:UNTIL Y$-13 О 
В Y$-58 OR Y$-6]:PRINT 


Thanks to М Wood for pointing this 
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VING 3D SURFACES (16k/32k) 
by Derek Chown 


Displaying 3D surfaces on the screen is interesting, but complicated to work out. 


Derek Chown has done all the hard work and presents you with a program for 


rojecting a "picture" onto a 3D surface. 
proj g 


Essentially this program draws a 
completely flat (2D) surface with a 
grid superimposed on it. Text may then 
be written onto the grid. A second 
phase of the program creates a 3D 
projection of the grid, in such a way 
that any lettering is raised and shaped 
against the contours. The screen shots 
give some idea of what the program can 
до. The next three paragraphs give а 
slightly more technical explanation. 


The 3D plot is achieved by placing 


the pixel of the "picture" with 
coordinates (x,y) at a height  z, 
calculated from x and y. 

That is 2 = f(x,y). 


This particular method of plotting 
enables opaque surfaces to be 
represented, covered with a grid to 
give the picture depth. The method is a 


little cunning. First an isometric view 


of a grid is drawn to represent the 
plane of x and y, and at each pixel 
within the grid а "match-stick" 15 
erected whose length is z. Match-sticks 
which stand on the grid lines are drawn 
in black, and matches that stand 
between the grid lines are drawn in 
white. In this way the grid lines are 
effectively drawn on the surface by the 
visible tips of the black match-stick. 


Drawing of the match-sticks begins 
at the point furthest from view, and 
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progresses towards the foreground. The 
foreground match-sticks therefore 
obscure all or part of the match-sticks 
behind them. This is what makes the 
completed surface opaque. 


A call to а suitable screen dump 
could be inserted at line 610 where 
indicated by «Пе REM statement. 
Remember that if you use a screen dump 
routine the printer image will be the 
reverse of that on the screen (black 
changes to white, and vice-versa). 


It is amusing to insert into. the 
program a statement or two to place 
words in the grid before the plotting 
begins. The match-sticks erected in the 
letters of the words will be in black, 
and will produce distorted printing as 
if scraped on the surface. (Rather in 
the nature of the Cern Giant drawn in 
chalk оп the hillside!). Strictly, 
though, these are not drawn accurately, 
because the originals were not drawn in 
the same isometric projection as the 
grid lines. 


Unfortunately, this program takes a 
long time to run, especially in the 
high resolution modes, so I have 
provided a means of producing a very 
crude impression of the final outcome 
for scaling purposes, etc. This is done 
by plotting 2 at, say, every fifth 


pixel. Тһе "speed factor" (sf%), as I 
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А speed factor of 1 gives the most 
detailed (and slowest) picture; higher 


values giving progressively cruder but 
faster images. 


It is quite possible that some of 
the trigonometrical calculations in the 
program аге inefficient, во perhaps 
there are rewards of speed for those 
willing to tinker with the various 
projections. For my own part, it is the 
fact that these mathematical pictures 
are so easily created with such 
Startling precision that is SO 
fascinating. 


The 3D surface itself is specified 
in lines 750 and 760. Тһе program as 
listed specifies a hemisphere. Here are 
two other surfaces to try: 


Surface 2: 1/cos^2 | 

750 5-5ОН((Х%-М% DIV 2)^2 + (Ү%-М% DIV 
.2)^2) %4%рІ/М% 

760 S=(COS(S) / (5+2) ) “233000 

Surface 3: Discontinuity 

750 5-((((М%-Х%) *Y%) MOD 

160000) %(М%-Ү%) * (M$-X2)) 

760 5-5/300000000 


€ 9 ^46 92949 ө ө т ө ө ө ^ ө ө ало э е е à а аа е a e e n e n e a n n a n e a a a a a a баба а аба, 


100 REM Program 3DPLOT Version 1A 
110 REM Author Derek Chown 

120 REM BEEBUG October 1983 

130 ON ERROR GOTO 150 

140 GOTO 199 

150 ON ERROR OFF 

160 VDU3:MODE7: REPORT 

170 PRINT" at line ";ERL:END 

188 

190 MODE7 

200 PRINT':INPUT"Enter speed factor: " 


210 MODE4:VDU23;8202;0;0;0; 

220 0%=500 

230 М%-1280 

240 C$-(W$41)DIV2 

250 B$-(D$41)DIV2 

260 CS-W$/32 

270 SN-D$/32 | 

280 FOR L1%=@ TO 16:REM DRAW GRID 
290 GX$-CS*L1$4.5 . 

300 X$-CS*(16-L12)4.5 

310 GY$-SN*L124.5 

320 Y%=SN* (16-L1%)+.5 

330 PLOT 4,C%+GX%-1 ,B3+Y3% 

340 PLOT 5,С%-Х%,В%-СҮ% 

350 PLOT 4,С%-СХ%,В%ҒУ% 

360 PLOT 5,С%%Х%-1,В%-СҮ% 

370 NEXT L1$ ; 

380 PRINTTAB (17,24) "Beebug" TAB(15, 25) 


have called it, controls this feature. 


390 TN=D%/Ws 
400 SN=ATN (TN) 
410 CS=COS (SN) 
420 SN=SIN(SN) 
430 М9=С%*50К (2) +.5 
440 FOR BT%=D% TO 0 STEP ~—4*sf%:REM МО 
DES 0,1,2,4,5 | 
450 Т-АВ5(В%-ВТ%) /TN 
460 L19-T-3.5 
470 L2$-W$-T43.5 
480 FOR CT$-L1$ ТО L2% STEP 4*sf$:REM 
MODES 1,4 
490 REM FOR СТ%=Г1% ТО 12% STEP 8%5Ғ%: 
REM MODES 2,5 
500 REM FOR CT$-L]$ ТО L2% STEP 2%5Ғ%: 
REM MODE 0 
510 PROCXY(CT$,BT$):REM CONVERT PIXEL 
ADDRESS TO (Х%,Ү%) | 
520 PROCPT(X$,Y$):REM CALC 7% 
530 GX%=(X%+4) DIV8 
540 GY%=(Y%+4) DIV8 
550 ССОІ0,РОІМТ(СТ%,ВТ%) EOR] 
560 PLOT69,CT$,BT$ 
570 PLOT5,CT$,SY$ 
580 NEXT CT% 
590 NEXT BTS 


610 REM Call screen dump here 
630 END 


650 DEFPROCPT (X%, УФ) 
660 LOCAL P,R,S 


680 БҺЕМЕХХХЕХХКХЕЖЕКХЕКЕКЕЕКЕККЕКЕККЕ 


700 

710 REM RE-CODE THIS SECTION FOR ANY О 
THER FUNCTIONS YOU CAN THINK OF 

720 

730 REM HEMISPHERE 

748 
‚ 750 К%-(Х%-М%/2)72--(Ү%-М%/2)72:5%-М%/2 

760 IF В3>=5%*5% 5=0 ELSE S-SQR(M$*(X$ 
ЖҮ%)-5%%5%-Х%%Х%-Ү%%У%) 

770 | 

780 

790 REM*3 9] à dede dede de de de e de dede de de dede dede de dede 

800 

810 2%-5--.5:КЕМ THIS VALUE IS PLOTTED 

820 Р=.7854-АТМ ( (Ү$+1Е-10) /(Х%-1Е-20)) 

830 R-SQR(X$^24Y$^2) 

840 SX$-C$-R*SIN(P)-4.5 

850 SY%=D%—-R*COS (Р) *SN+S*CS+.5 

860 ENDPROC ; 

870 DEF PROCXY (5Х%,5Ү$) 

880 LOCAL P,R 

890 Р-ТАМ(.7854-АТМ((С%-5Х%) / (D$-SY$+1 
Е-20) *SN) ) 

900 R-(C$-SX$) ~2+( (0%-5У%) /SN) ^2 

910 R-SOR(R/(14P^2)) 

920 X$-Rt.5 

930 Y$-P*Rt.5 
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Colin describes а program that will help you find a file on disc after it has been 
deleted from the disc directory. 


In the July issue, Vol.2 No.3, we 
described ап extremely useful general 
purpose ‘Disc Sector Editor’ which, 
amongst other things, could be used to 
restore files which have been 
accidently deleted from a disc. Clearly 
the task of file restoration is 
relatively easy if а current "'*INFO' 
listing exists of the disc in question, 
but what if this isn't available? With 
ап 80 track disc you could end up 
searching 800 sectors to find the 
beginning of your file! We now describe 
a search program which can be used to 
search for a string of characters on a 
specified disc. Using this program 
approximately 2.5 sectors сап be 
checked every second giving a scan rate 
of around 1.5 minutes for а 40 track 
disc. This is an immense saving in time 
compared to a manual check. 

[It is interesting to note that the 
program takes twice as long to run on 
our Torch Disc Pack due to the 'head & 
motor'/'head & select' access mechanism 


outlined in our Torch review in  BEEBUG. 


Vol.2 No.1 апа in 'Postbag' in BEEBUG 
Vol.2 Мо.3. Ed.] 


DESCRIPTION OF PROGRAM 

The program is listed at the end of 
this article and consists of a mixture 
of Basic and Assembler. The assembler 
part is the string search procedure, 
hence providing a good search speed. 
(Using a Basic string search procedure, 
this takes three times as long). 

It is possible to obtain a listing 
of the assembled code by setting the 
appropriate boolean variable 'listasm' 
in line 159. If this variable is set to 
"ТВОЕ! then a listing will be given 
each time the program is run. Setting 
it to 'FALSE' stops the listing from 
occurring. Usually the listing will 
only be required for debugging any 
typing-in errors or for obtaining a 
printed copy, (set VDU2 first). During 
normal use of the utility the listing 
would sensibly be switched out. 
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Checks are constantly made for disc 
read errors and a display of the 
current track and sector being searched 
is maintained continuously. Results are 
displayed in the same order and manner 
as would be required for entry in the 
Disc Sector Editor (i.e. as 
'track/sector' in decimal, and as 
'relative sector’ in hexadecimal). Іп 
this way it is very easy to take the 
results and use them in conjunction 
with the editor in order to locate the 
lost program. | 


USING THE PROGRAM 


On running the utility a series of 
questions are presented: 


1) Drive: - Enter the drive number (0 
to 3) of the disc which you want to 
be searched. 


2) String: - Give the string (maximum 
80 characters - though only 8 will 
be sensibly displayed) which is to 
be searched for. Basic tokens cannot 
be included in this string. 


3) Printer: - Typing 'Y' in reply to 
this will enable the results, 
showing the location(s) of (һе 
specified string, to be sent toa 
printer as well as to the screen. 
The printer must previously have 
been initialised using the normal 
*FX commands ав necessary. Typing 
'N' will send the results to the 
screen only. 


All three replies require a «return» 
to terminate them. Once they have been 
entered the search program will check 
the specified disc to see if it is 
formatted. If it is, then the number of 
tracks on that disc will be displayed 
in the top right-hand corner of the 
Screen, otherwise an error report will 
be given and the program will stop. 
Assuming all is well, a display will 
also be initialised giving the current 
sector being searched. 
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the !' track/sector' location (in 
decimal) is displayed along with the 
'relative sector' version (in 
hexadecimal). All results are displayed 
in the lower part of the screen in a 
scrolling page. In this way the top 
half of the screen showing the initial 
inputs, the track and sector count, and 
the headings for the results, will 
remain throughout the search. If а 
printer is not being used it will be 
necessary to jot down the results 
before they get scrolled off the 
screen. 


When the program has finished, it 
reports the fact, and the track and 
sector count will be found to be the 
last ones available for the specified 
disc, (оп а 40 track disc this will be 
"track 39','sector 9'). Now the Disc 
Sector Editor can be loaded апа run. 
Entering either form of the result(s) 
obtained from the search program will 
enable the appropriate sectors to be 
displayed by the editor. You сап use 
these displayed sectors to help in 
locating the start and end of the 
deleted program, and therefore obtain 
the required parameters to enable the 
program to be restored оп the disc 
catalogue. 


100 REM Program DSERCH Version 1А 

110 REM DISC SECTOR STRING SEARCH 

120 REM C.N.OPIE BEEBUG October 83 

130 REM 

140 ON ERROR GOTO 429 

150 listasm=FALSE:1listasm=3+NOT (lista 
sm) 

160 MODE7:02$-2:tmpl-&70:tmp2-&71:tmpy 
=&72 

170 DIM blc$ 256,blk$ 12,str$ 80,соде 
% 100 

180 DIM flag$ l,blklen$ l,tlen$ l,bch 
klen$ 1 

190 blk£$!1-blc$:blk$?5-3:b1k$?9-&2] 

200 vert£-ü:printer-FALSE 

210 

220 PROCassemble:PROCtitle:PROCcollec 
t : 
230 rcd$-0:b1k$?6-&53:b1k2?7-0:Db1k2?8 
=] 

240 X$-blk$MOD256:Y$-blk$DIV256:A2—&7 
F:CALL &FFF!:rcd$-blk$?19 

250 IF rcd%<>@ THEN SOUND] ,-15,10,20: 
PRINT"Disc error ":GOTO400 

260 IF blc$?7«»5&90 AND blc$?7«»5&20 TH 
EN SOUND1,-15,10,20: PRINT "Unknown Disc 
. Format" :GOTO400 | 
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270 IF blc?7-&90 THEN tr3=4@ ELSE tr 
5-80. 
280 PRINTTAB(17,2);CHR$129;tr2;" trac 
k disc" 
290 PRINTTAB(17,3) ;CHR$134; "Track:";S 
PC(5);"Sector: " 
300 FOR ТВК%=0 ТО tr$-1:FOR SCT$-0 ТО 
9 
310 VDU28,0,24,39,0: PRINTTAB(25,3) ; TR 
K%: TAB (37,3) ; SCT$: VDU28,0,24,39,7 
320 rcd$z0:b1k2?7-TRK$:b1k2?8-SCT$ 
330 X$-blkeMOD256:Y2zblkg$DIV256:A$-&7 
FsCALL &FFF] 
340 IF rcd%<>@ THEN SOUNDI1,-15,190,20: 


` PRINTTAB(@,vert%) ;CHR$129;:"Disc error " 


:СОТО400 

350 ?blklen2-2255 

360 CALL search:IF ?flag%>@ THEN PROC 
report:GOTO 360 

370 NEXT SCTS,TRK% 

380 PRINTTAB(90,vert£);'CHR$129;"Finis 
hed"! 

390 VDU28,0,24, 39,0 

400 END 

410 

420 REM End of Program 

430 ON ERROR OFF 

440 MODE7:VDU3 

450 REPORT:PRINT" at "ЕВГ, 

460 END 

470 

480 DEFPROCassemble 

490 FOR pass$-0 TO listasm STEP lista 
sm :P%=code% 

500 ТОРТ pass$ 

510 .search 

520 ГОУ blklen£ 

530 ІМҮ 

540 .52 

550 LDX 40 

560 LDA str%,X 

570 CMP blc$,Y 

580 BEQ check 

590 INY 

600 CPY bchklen$ 

610 ВЕО s3 

620 BCS 53 

630 JMP 52 

640 .53 

650 LDA #0 

660 STA flag% 

670 RTS 

688 Х--- 

690 .check 

700 LDA #1 
718 STA tmp] 
hed ` 

720 STA tmp2 
ed | 


\Set Buffer Index 


NSet String Index 
\Found Start? 


\End of buffer? 


NNo-keep looking 
NYes-so reset flag 


\and finish. 


\No.of chars searc 


\No.of chars match 


\Save buffer index 
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740 .c] | 
750 CMP tlen% 
760 BEQ found 
770 INC tmp] 
780 INY 

790 INX 

800 LDA str%,X 
810 CMP Ыіс%,Ү 
820 ВМЕ с2 

830 LDA tmp] 
840 JMP cl 

850 .с2 

860 LDY tmpy 
dex 

870 INY 

880 JMP 52 

890 .found 

900 LDA #1 

910 STA flag$ 
.920 STY blklen$ 


\Match? 
\Got it!! 
\Keep looking... 


\No match! 


\Restore buffer in 


\Set found flag 


\update buffer index 


930 RTS \and return. 
940 | 

950 NEXT pass%:CLS:ENDPROC 

960 


970 DEFPROCreport 
980 IF printer THEN VDU2 
990 Q$-2:PRINTTAB(5,vert$£); TRK$; TAB(3 
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1020 ENDPROC 
1030 ЖЫ 

1040 DEFPROCcollect 

1050 PRINTTAB(1,2);"Drive  :";:INPUT"" 
D$:D$-D£$MODA : ?2b1k2-D$ 

1060 PRINTTAB(1,3);"String :";:INPUT"" 
$str$:K2$-LEN($str£):?tleng-K2:?bchklen$ 
ш256-К% 

1070 PRINTTAB(1,4) ;"Printer (Y/N) :"3:IN 
PUTPS 

1080 PS-LEFTS(PS,1):IF PS="y" OR PS="y 
" THEN printer-TRUE 

1090 PRINTTAB (8,4) ; SPC(19) 

1100 РЕТМТТАВ (8,4) ;":ON";:IF NOT print 
er THEN VDU8:PRINT "ЕЕ" 

1110 ENDPROC - 

1120 

1138 DEFPROCtitle 

1140 VDU23;11,0;0;0;0 

1150 PRINT TAB(4,9);CHRS$14];CHR$132;CH 
R$157;CHR$131;"Sector String Search "; 
CHRS 1 56 | 

1160 PRINT ТАВ(4,1) ;СНВ51 41 ;СНВ51 32; СН 
R$157;CHR$131;"Sector String Search "; 
CHRS156 

1170 РКІМТТАВ (0,5) ; CHR$146; STRINGS (38, 
СНВ5172) 


) 3". ".6СТ%;ТАВ (24) 7 (10®*ТВК%+5СТ%) 1180 PRINTTAB (2,6) ; CHR$134;"Track/Sect 
1000 VDU3 or(Dec) Rel.Sector (Нех) " 
1010 SOUND1,-15,159,1:vert%=VPOS 5521 


1190 ENDPROC 


Trevor White 


The following procedure allows a file to be locked from within a program by using 
a call to OSCLI. 


Users with Basic II can simplify the routine considerably. 


For Basic I use: 

5DIM buf% 20 

1@DEF PROClock (name$) 
20Sbuf£%="ACCESS “+names" L" 
30X$-buf$:Y$-buf$ DIV 256 
АЙСАШ, &FFF7 
5@ENDPROC 


ото ооо ото те ооо ттт то ть ть ето тео тето ттт то тете тете те то-то тот то тете ттт тети тете тете ооо EEEEEEEEEEMEMMEM 
КАРОО оқ оқ жоқ асқақ тото ето оте тототатетоте оқ қ оқ оқ оқ қ оқ Ж, УУ OG UCOROCOROCOROCOROOROEOR ае оте е elozo e ororo о ето ото ете тото оте оқ жоқ қ оқ оқ қ оқ қ оқ қо ақ қ оқ D a оқ жоқ қ LC оқ D ozo қос ozo e оС оқ D жақ Оқ ҚОР ОҚҚА КА 


Ұр) 1 ~ B.Tennent 

B.Tennent reminds us that control codes sent to a printer must always be preceded 
by VDU 1 (and also by VDU 2 on the new 0.5.). Thus to generate the codes 27,70, use 
the following: 
VDU 2,1,27,1,70 

VDU 1 sends the next character to the printer only and so does not intercept the 
codes as it does when control codes are used normally. | === 


оковы ДАЛА А 
Боо оет ео ооа ооа е ө өөө ооо отт 27«767075757237a7070707«7070707€72 7070 ne - о 
еее ut nut tutum utu em ron Оооо toT o To e eo) Te Tea o eT ote T oT OC еее Loro oer PP LOIUI; 


For Basic II use: 

1ØDEF PROClock (пате5) 
200SCLI"ACCESS "+nameS+" І" 
30ENDPROC 


1». gives 127 — delete ^ 
11|? gives 255 
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the ВВС 


ferences that 
the full 


not Support 


сосаде 
әс example the Mits 
n BBC): 
This presumably has Some reference 
j 1 реуіем іп 


о the point made 
3EEBUG уо1.1 No.8 page 7 where 1 


-hese large drives 
than the BBC can handle. 
thi 


nolding more 
Can the reason for 


elaborated please? what is the limiting 


factor? On the face of it the 100% of 
than the computer 


the BBC drive is more 
can handle put usually broken up into а 


number of short programs. 


Tom Ward 


Reply: Disc storage is always divided 
up into a large number of relatively 
small (typically 256 bytes) units of 
storage which we will call blocks.» Each 
block is referenced py the micro Бу 
means of an address which identifies 
the exact physical location of a block 
on the disc. t is thus the hardware in 
the micro; in the form of the disc 
interface; together with the disc 
operating system, in this case DFS, 
which actually determines how much disc 
storage can be used, rather than the 

physical storage capacity of the disc 

itself. Тһе BBC micro uses a disc 
j (8271) which is only 


| able to handle single density (19 
| sectors Pet track) discs. А double Dear Sir, 
density disc controller would I have p 
immediately double (һе potential hedgehog. СЕЙ the hi 
put this would also your М ҚАБЛАН S іп 
ecau Ü. I like 


storage capacity: 
need a modified version of DFS- good games Se it 
мг Ward's letter also raises а ° has 10 
ts. of 
Ru 


Of course nearly any disc C. Eberhard : 
1 rat “(а 
дей 8) 


R 9 ° 
eply: Nice try 
g 


stored on disc can sensibly 
than the micro's memory (32k for the 
Beeb less graphics and work space) . 


| second point. 

| can store, 1h totale far ere 

| information than can be held in а beaten b 

| computer's memory г However, NO program n this i lt. See hi e Davis 

| 1Ssue high has 
| ре larger * Scores table 
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WOULD YOUR BEEB S. 


ARITHMETIC? — — 


prsc SECTOR EDITOS 
Try running 


Dear Sir, 


re. your Disc Gector Editor (BEEBUG the following program 


10 FOR N- 
Vol.2 №.3) > №=й TO 
Thanks for 4 useful program. The ќе PRINT 00) STEP 0,001 
magazine arrived the same day 1 Ü NEXT N 


corrupted the catalogue of one of my 
discs. Using the program; [ was able to 
recover all the programs on the disc. 

т did find а small problem, however • 
If a filename 15 used to indicate the 
sector to be edited, the file will not 
be found if it is locked. The reason 
for this 18 that the toP bit of the 
directory letter is set for а locked 
file. The remedy is to ignore the top 
bit when testing the filename, У12 


This sh 

4 ould а E 

сако СЦ X ore уы, gt 
á С») Б 7 

See what nd running 


Му 0.5 
Scored o 152, 


а Егіс Br 
US making ERE has also written t 
о 


С 
orrespondents 


1170 ІР F$-fnt$ AND DIRS=CHR$ (svd 
AND127) THEN СЕЕ-І%-діс%:1%-99999 


т hope this is of use to someone. 
Michael Smith 


exactly repre 
numbers involy 
involved the 


in binar 
sit а Fractional = 
uation part are 


i 


(digits) al 


A COMPUTER WIDOW'S LAMENT! Such numbers, Е 
o or 


fraction example 
Qur Computer | | becomes 25 when лд: decimal 
The pest in our house is not a mouse, inaccuracy «00110011001100 to binary 
But а machine with which you play 15 built TR Thus 


Each and every single дау» 
You switch it on and press a button 
Onto the Screen they come astrutting 
People and dragons; spiders and things 
In and out of dungeons in Winter and 
Spring 
Bleeping and buzzing, whirring around 
Making such an awful sound. 
One of these days I suppose 1 shall see 
The point in all this machinery- 

W.C. Beckley 


(wife) 


Secti | 
numbers only ons to using 1 
obtained, Or adjust the в 
уа пес 
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get! the program and 


ILLUSIONS (32k) 


Ж. М үш 


120 REM-Number of points in jump traj 
ectory (affects speed of mannikin) 

130 діу%-10 

140 REM-Perspective angi 

15@ theta=1.15 

160 REM-Colours of mannikin and stair 
case 

170 СМ%-3:С5%-2 

180 REM-Median sound pitch 


[This program illustrates an optical 
and an auditory illusion. It is based 
on the well known Escher drawing of a 
never-ending staircase. This version is 
animated with a figure continually 
spiralling up the staircase to the 
accompaniment of musical chords which 


- : 190 P@%=62: 
appear to go higher and higher - К 
indefinitely. | она КЕМ End of preset variables 
The | program requires no user 220 MODE] 


participation, and can be terminated by 
pressing any key. The user can change 
some of the variables declared at the 
start of the program, to give а 
different number of steps, and a 
different speed for the figure, but 


230 Р2%-Р0%:Р3%-Р0%-16:Р1%-Р0%-20 

240 GCOL 0,2:У0019,2,С5%;0;19,3,СМ%;0 
; 19,1,СМ5; 0; 

250 4а%-(1%-1) *1%+300 

260 VDU23,224,60,60,60,24,255,255,255 


с : 255 | 

only make slight adjustments to these d 

2. only PRU deem ond: AP Rr Bind 270 Үр023,225,255,189,189,60,60,60,60 
7126 


otherwise invalid combinations might be 


obtained. 280 steps=i3+j3+k3+13-4 


290 DIM centres%(1,steps%—1) 

300 centindex£-0 

310 sinth=SIN (theta) :costh=COS (theta) 

320 sinfi-(j$-12)*sinth/(i$-k2) | 

330 cosfizCOS (ASN (sinfi) ) 

340 а%-һ%%5бер5%/((1%-1%) *costh+ (ко-1 
%) *cosfi) 

350 aSinfi=a%*sinfi sacosfi=a%*cosfi 

360 asinth=a$*sinth sacosth=a%*costh 

370 halfx%=(asinth+asinfi) /2 

380 halfy%=(acosth-acosfi) /2 

390 Бу%-4%-(1%-1) *h$+ig¢*acosfi 

400 MOVE @,by% 

410 DRAW 0,1%%асовҒі 

420 £x%=1%*asinfi 

430 DRAW fx$,0 

440 DRAW Ғх%,4% 

450 MOVE Ғх%,0 

460 DRAW £x%+1%*asinth,1%*acosth 

470 PLOT 1,0,4%-(1%-1) ХЕ 

480 х%-0:у%-Бу% 


Acknowledgements : L.S & В. Penrose; 
Brit.J.Psych. Vol.49,31. 


10 REM Program name : Illusions 490 MOVE @,by% 

20 REM Author : M. Inglis 500 

30 REM VersionIA 510 FOR п%-1 TO 33-1 

40 520 x%=x%+asinth :y$=y3th$+acosth 
50 ON ERROR GOTO 1670 530 MOVE x$,y$ 

60 REM-Number of steps on each side 540 PROCrhomb(1,4) 

70 1%-3:1%-4:К%-6:1%-7 550 NEXT 

80 REM-Height of each step 560 FOR m$-1 TO k$-] 

90 h$-20 | 570 X%=x%tasinfi : y%=y%th$-acosfi 
100 REM-Height of jump 580 IF m$-] THEN ух%-х%:уу%-у% 


110 kht2-890 590 MOVE х%,у% 
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PROCrhomb (0,0) 
618 NEXT 
620 
630 FOR п%-1 TO 1%-1 
640 x$-x$-asinth:y$-y$4h£-acosth 
650 MOVE х%,у% 
660 PROCrhomb (-1 ,0) 
670 NEXT 
680 
690 FOR m$-] TO 1%-1 


700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 


x$-x$-asinfi:y$-y$4-h?tacosfi 
MOVE x$,y$ 

PROCrhomb (3, 4) 

NEXT | 

MOVE vx$,vy$:vy$-vy$-3*h$ 
PLOT 21,ух%,уу% 

REPEAT | 
vy$-vy$-h$:PLOT 21,vx%,vy% 
UNTIL РОІМТ (ух$,уу$-5) <>0 


centindex$£-) 
notfirst%=FALSE 
T=TIME:VDU5 0 

REPEAT 

oldx=centres% (@,centindex$) 


1190 
1200 
1210 
1220 
1230 


LOCAL corner£,p12,p2 

согпеү$=0 

р1%=1:р2%=81 
сепегез%(0,сепсіпдйех%)-х%Һа1Ғх% 
centres$(1],centindex$)zy$4halfy$ 


1240 REPEAT 

1258 PROCdrop 

1260 PLOT p1%,asinth,acosth 

1270 PROCdrop 

1280 PLOT p2$,asinfi,-acosfi 

1298 PROCdrop 

1300 PLOT pl$,-asinth,-acosth 

1310 PROCdrop:IF а%--1 THEN ООН 
asinth,@) 

1320 PLOT p2%,-asinfi ,acosfi 


1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 


ТЕ a%=@ THEN PROCblack(8,-acosfi) 
р1%=р1%+2:р2%=3 

UNTIL р1%>3 
centindex$-centindex2-4] 

ENDPROC 


DEF PROCdrop 

IF р1%<>3 THEN 1430 
corner£-corner$-] 

IF (а%=согпег%) OR (b$-corner$) THE 


М PLOT 1,0,-h$:PLOT 0,0,h$ 


850 oldy=centres$% (1 ,centindex$) 

860 centindex%=centindex$+] 1430 

870 IF centindex%=steps% THEN centind 1440 
ехф-й 1450 


“880 newx$-centress$ (0, centindex$£) 
890 newy%=centres% (1 ,centindex$) 
900 difx£-oldx-newx$ 
910 a-—-4*kht$/ (difxg*difx) 


920 b-(oldy-newy$)/difx$ - ах (oldx+newx) 


930 c-oldy-oldx* (a*oldx+b) . 
940 incrx--difx$/div$ 

950 D-(TIME-T)/5 

960 PROCplonk 

070 T=TIME 

980 ЕОБі%-1ТО41у% 

990 oldx=oldx+incrx 

1000 oldy=a*oldx*oldx + b*oldx “с 
1010 PROCblot(oldx,oldy) 
1020 МЕХТ 

1030 

1040 UNTILINKEY(1)>@ 

1050 VDUA:MODE7 

1060 END 

1070 

1080 DEF PROCblot (x,y) 

1090 LOCAL dx$,dy$ 

1100 dx$-x:dy$-y-64 


1110 IF notfirst$ THEN MOVE vx$,vy$:GC 


OL2,2:VDU224,8,160,225 
1120 MOVE dx$,dy$ 
1130 GCOL 1,1:VDU224,8,190,225 
1140 vx$-dx$:vy$-dy$ 
1150 notfirst$-TRUE 
1160 ENDPROC / 
1170 
1180 DEF PROCrhomb 
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1460 
1470 
1480 
1490 
1500 


1510 


ENDPROC 


DEF PROCblack(xd,yd) 

IF р1%<>3 THEN 1480 

PLOT 83,xd,yd:PLOT 0,-xd,-yd 
ENDPROC 


DEF PROCplonk — 
IF АВ5(Р0%-Р3%)>19 THEN ТМР%-Р3%: 


Р3%-Р2%:Р2%-Р1%:Р1%-ТМР%-48 


1520 
1530 


Р1%=Р1%+4:Р2%=Р2%+4:Р3%=Р3%+4 
А1%-ҒМАМР(Р1%) :А2%=ЕМАМР (Р2%) :АЗ 


%=FNAMP (P33) 


1540 


ENVELOPE] zl ,й,0,0,0,0,0,127,-10,- 


1,-127,А1%,А1% 


1550 


ЕМУЕГОРЕ2,1,0,0,0,0, 0, 0,127,-10,- 


1,-127,A2%,A2% 


1560 


ENVELOPE3, 1,0,0,0,0,0,0,127,-10,- 


1 p~] 27 ,АЗ% ,АЗ% 


1570 
1580 
1590 
1600 
1610 
1620 
21630 
1640 
1650 
1660 
1670 
1680 
1690 
"; ЕНІ, 
1700 
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SOUND &291,1,P1%,D 
SOUND &202,2,P2$,D 
SOUND &203,3,Р3%,р 
ENDPROC 


DEF FNAMP (PITCH) 

LOCAL exp 

exp- (ABS (PÜ$-PITCH$-2) /25) 

=126* (1-exp*exp) 

END 

ON ERROR OFF 

MODE 7 

IF ERR<>17 REPORT:PRINT" at line 


END 
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Munch-Man is а very well written 
version of the popular arcade game 
РАС-МАМ. Тһе game, although written in 
Basic, is quite fast and enjoyable. You 


take the part of a little yellow 
'mouth' scurrying around a maze eating 
dots to score points. There are three 
ghosts that chase you and try to kill 
you. These ghosts move through walls, 
thus making it harder for you. То 
combat these ghosts you can eat a power 
pill, situated in the 4 corners of the 
maze, and these cause the ghosts to 
turn blue and run away. While the 
ghosts are blue you can eat them to 
gain massive bonus points. 

Once you have cleared a sheet, the 
dots are replaced and you carry on, 
until you lose three lives. Happy 
eating! 

The best strategy for this game is 
to make use of the power pills, and the 
tunnels - because in ` this 
implementation the ghosts do not chase 
you through the tunnels. 


The program is in two parts. The 
first is called "Munch" and sets up the 
user-defined graphics for use in the 
main program. It then CHAINS the main 
program which is called "Munch2". So 
type in the first program and save it 
as "Munch", then type in the main 
program and save іс ав "Munch2". To 
load Munch-Man, CHAIN in "Munch", and 
this should run and auto-load "Munch2" 
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MUNCH-MAN (32k) 


by Andrew Hynes 


02,102 
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If you are using a disc system, you 
will need to use the move-down routine 
given below to relocate the main 
program at &E@@. Simply add these 
following lines to the start of 
"Munch2" : 


@ REM///Move down for Munch-Man 
1 IF PAGE=&E@@ СОТО 10 
2 *KEYO *T.|MFORI%=@ TO TOP-PAGE STEP4: 
1%1&Е00=1%!&1900: 
М. | МРАСЕ=&Е 00 | MOLD| MG. 19 |M 
3 *FX138,0,128 
4 END 


Ша aue 


10 REM Munch (Munch-Man Header) 

20 REM Version 1A 

30 REM by Andrew Hynes 

40 

50 Үр023,224,102,102,102,102,102,102 


,102,102 


60 VDU23,225,0,255,255,0,0,255,255,0 
70 VDU23,226,0,127,127,96,96,103,103 


,102 


80 VDU23,227,0,254,254,6,6,230,230,1 


90 VDU23,245,0,0,0,255,255,0,0,0 
100 VDU23,246,60,126,255,255,255,255, 


126,69 


110 У0023,228,102,103,103,96,96,127,1 


27,0 


120 Ү0023,229,102,230,230,6,6,254,254 


130 VDU23,230,192,102,102,102,102,126 


‚126,8 


140 VDU23,231,0,126,126,122,102,192,1 
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150 VDU23,232,0,254,254,6,6,254,254,0 2 


160 VDU23,233,0,127,127,96,96,127,127 
0 
? 

170 VDU23,234,102,230,230,6,6,230,230 
„102 

180 VDU23,235,102,231,231,0,0,255,255 
0 
[4 

190 Ур023,236,102,103,103,96,96,103,1 
03,102 

200 VDU23,237,60,126,255,224,224,255, 
126,60 

210 Ур023,238,60,126,255,7,7,255,126, 
60 

220 VDU23,239,36,102,231,231,231,255, 
126,60 

230 VDU23,240,60,126,255,231,231,231, 
102,36 | 

240 VDU23,241,0,0,42,0,34,0,42,0 

250 VDU23,242,8,73,42,0,99,0,42,73 

260 VDU23,243,126,90,219,255,213,171, 
255,219 

270 VDU23,244,198,56,108,222,190,222, 
188,56 . 

280 

@ CLEAR:CHAIN "Munch2" 


100800003222 00 202000000200 00002300200 00000020000 НИ || 02 002 2000002 2000000001 


10 REM Munch2 
20 REM Version 1A 
30 REM By Andrew Hynes 
40 *TV255 
50 *FX 11,1 
60 *FX 12,1 
70 ON ERROR GOTO 2120 
80 MODE2:VDU23;8202;0;0;0; 
90 ENVELOPE 1,1,4,-4,4,10,20,10,127, 
0,0,—5, ] 26, 126 
100 H$-0:DIM maze$ (19,24) ,ghost (2,2) 
110 REPEAT 
120 PRINTTAB(5, 2) "MUNCHMAN" TAB (6 , 9) "* 
ə o o o o UP'TAB(6,11) "2,. .DOWN" TAB(6,13) "7. 
e o LEFT" TAB (6,15) "X. o RIGHT" 
130 У0017,3,31,6,21,238,17,6,32,32,24 
3, 32,243, 32,243: PROCspace 
140 lives$z3:score£-0:sheet$-0:ghost- 
@:dirs=" " 
150 PROCsetup maze: TIME-0:fruit-f:EAT 
160 COLOUR7: РВТМТТАВ (1,0) "Score" TAB (1 
4) "High" 
170 PROCprint score (0) : РАТМТТАВ (19-ГЕ 
N (STR$ (H$) ) , 1) ;H%:COLOUR3: PRINTTAB (1 , 29 
) STRINGS (11уеѕ%-1,СНА5237+" ")" " 
180 REPEAT:*FX 15,0 
. 190 ghost=ghost+1:IF ghost=3:ghost=9 
200 PROCpacman:PROCcheck 
210 IF ЕАТ-1:500М01,-14,150,1 
220 IFTIME»2009ANDfruit-0ANDtot$«]159: 
PROCfruit 
230 IFRND(1)5.9:PROCdoor 


240 IFfruit-lANDTIME»3000/sheet£:PROC 
no fruit 
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250 IFTIME»]590/sheet£$ ANDEAT-]:EAT-0 
260 UNTIL tot%=187 OR KILL-] 
270 IF tot%=187:GOTO 150 
280 PROCkilled:IF lives%>@:GOTO 170 
290 PROCend:UNTIL FALSE 
300 
310 DEFFNcalcX(X) 
320 IF Х>19:Х-0 
330 IF Х<0:Х-19 
340 -Х 
350 
360 DEFFNcalcY (У) 
370 IF Y»24:Y-0 
380 IF Ү<0:Ү-24 
390 =Y 
400 
410 DEFPROCtime (Т) 
420 TM-TIME:REPEAT UNTIL TIME>TM+T 
430 ENDPROC 
440 | 
450 DEFPROCprint score (5%) 
460 score$-score$49$ 
470 COLOUR7:PRINTTAB(1,1);score$ 
480 ENDPROC 
490 
500 DEFPROCpacman | 
510 OX%=pacXx% : OY=pacY% : SC=score$: IF 
pac$<>CHRS$ 246: OP$=pac$ 
520 dirS=INKEYS (0) 
530 IF dir$z":" pac$=CHR$239:pacY%=pa 
cY$-] 
540 IF dirS="/" pac$zCHRS$240:pacY$-pa 
cY$4] 
550 IF dirS="Z" pac$-CHR$238:pacX$-pa 
сХ%-1 
560 IF dir$-"X" pac$=CHR$237:pacX%=pa 
сХ$+1 
570 pacY%$=FNcalcyY (pacY%) spacX$=FNcalc 
Х(расХ%) 
580 IF dirS="" AND pac$-CHR$246 THEN 
рас$=ОР$ ELSE IF dir$-"" pac$=CHR$246 
590 A$-maze$(pacX$,pacY$) 
600 IF A$-".":PROCprint score(2): : SOUN 
D1,1,60,1:tot$-tot$-4] 
610 IF AS-CHR$244:PROCprint ѕсоге (100 
):PROCno fruit:SOUNDl,1,150,2 - 
620 IF AS="+":PROCprint score (50) :ЕАТ 
z]:TIME-0:S0UND1,1,100,2 
630 IF SC=score% AND AS<>" " :pacX$-0X 
$:pacY$-OY$ 
640 VDU17,3,31 ,OX%,OY%+3,32 . 
650 PRINTTAB(pacX$,pacY2-43) ; pac$ 
660 maze$(pacX$,pacY2)z" " 
670 ENDPROC 
680 
690 DEFPROCrub out ghost (G%) :COLOUR4 
700 M$-maze$ (ghost (G%, 1) ,ghost (05,2) ) 
710 IF MS="." OR M$-"-":COLOUR2 
720 ТЕ MS=CHR$244:COLOURI 
730 IF MS=CHR$245:COLOUR5S 
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40 


740 


PRINTTAB (ghost (G%,1) „ghost (G$, 2^ 


3)maze$ (ghost (G$,1) ,ghost (G3, 2)) 


750 
760 
770 
. 780 
796 


(6%,0) 


800 
Y$--] 
810 
820 


830 
840 


ENDPROC 


DEFPROCghost (G8) : Сејј 
PROCrub out . ghost (G$) 
IF EAT=1:COLOUR4 ELSE COLOURghost 


IPEAT-Q:DX$-1:DY$-] ELSE DX$--1:D 


IFG$-0:PROCvert:IFC-Q:PROChoriz 
IFG%=1 : PROChoriz: IFC=@: PROCvert 
IFG%=2 : PROChoriz:PROCvert 
PRINTTAB (ghost (G%,1) ,ghost (G%,2)+ 


3) CHR$243 


850 
860 
870 
880 
890 
900 
:Cz] 
910 
С-1 
920 
930 
940 
950 
960 
970 
:С=] 
980 
:С=] 
990 
1000 
1010 
1020 
1030 
1040 
1050 


ENDPROC 


DEFPROCvert 
A-FNcalcY (ghost (G%, 2) -DY$) 
B-FNcalcY (ghost (G$ , 2) -DY2) 
IFpacY%>ghost (G$,2) :ghost (G2, 2) =A 


IFpacY$«ghost (G$, 2) sghost (G%, 2) =B 
ENDPROC 
DEFPROChoriz 


A-FNcalcX(ghost (G2, 1) +DX%) 
B=FNcalcx (ghost (G%, 1) -DX£) 


IPFpacXe»ghost (G%,1) sghost (G%,1)=A 


IFpacx%<ghost (G%, 1) :ghost (05,1) -В 
ENDPROC 


DEFPROCdoor 
D%=RND (4) : ВЕЗТОВЕ1 850 ` 

FORF$-] TO D%:READX, Y:NEXT 

IF Х-расХ% AND Y=pacY%:GOTO 1020 
ТЕ maze$(X,Y)z" "smazeS (X,Y) =CHRS$ 


245 ELSE maze$(X,Y)=" " 


1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 


VDU17,5,31,X, Y43,ASC (maze$ (X,Y) ) 
ENDPROC 


DEFPROCfruit 
VDU17,1,31,9,18,244 
fruit=1: TIME=0 
mazes (9,15) =CHRS244 
ENDPROC 


DEFPROCno fruit 
VDU31,9,18,32:fruit=¢ 
mazes (9, 1 5)=" a 
ENDPROC 


DEFPROCcheck : KILL-0 

FOR G$-0 TO 2 

IF G$-ghost:PROCghost (G2) 

IF ghost (G%,1)<>pacx% OR ghost (G% 


72) <>pacY%:GOTO 1250 


1249 IF EAT-]:PROCprint . Score (250) : SOU 
ND1,1,250,1:PROCSsetup › ghosts (G8) ELSE K 
ILL-] 

1250 NEXT 

1260 ENDPROC 

1270 

1280 DEFPROCkilled:COLOUR3 

1290 FOR С-237 TO 242 

1300 VDU31,pacX$,pacY243,C 

1310 SOUND1, 1,C/2,1:PROCtime (20) 

1320 NEXT 

1330 VDU31 ,pacx% ,pacY3+3, 32 

1340 FOR G%=ø TO 2 

1350 PROCrub out ghost (G%) 

1360 PROCsetup › ghosts (G8) 

1370 NEXT 

1380 PROCpac:lives£-lives$-] 

1398 ENDPROC 

1400 

1410 DEFPROCend 

1420 IF соге%>Н%:Н%-5соге% 

1430 COLOUR7: PRINTTAB ( 1 9-LEN (STRS (H$) ) 
71) ;B$ 

144) PROCSpace 

1450 ENDPROC 

1460 | 

1470 DEFPROCspace:*FX 15,9 

1480 VDU17,15,31,1,30:PRINT"SPACE BAR 
TO START" 

1490 REPEAT UNTIL GET-32:VDU12,17,7 

1500 ENDPROC 

1510 

1520 DEFPROCsetup › ghosts (6%) 

1530 RESTORE 1840 

1540 FOR р%=0 TO G%:READ COL, X: NEXT 

1550 ghost (05,1) =X 

1560 ghost (G%, 2)=12 

1570 ghost (G%,@) “СОГ, 

1580 ENDPROC 

1590 

1600 DEFPROCpac 

1610 расХ%-9:расҮ%-20: pac$=CHR$237 

1620 ENDPROC 

1630 

1640 DEFPROCsetup maze 

1658 FORG$-0TO2: PROCsetup ghosts (G8) :N 


EXT 


1660 PROCpac:tot£-0:sheetg-sheet2-4] 
1670 COLOURI28:RESTORE 1860 .: 

1680 FOR D%=3 TO 27 

1690 READ mazes 

1700 FOR E%=9 TO 19 

1710 AS=MIDS (maze$,E%+1,1) 

1720 IF AS>="A" AND AS<="M" sMS=CHRS (AS 


С(А5) +159) sCOLOUR4 ELSE M$=A$ :COLOUR2 


1730 РКІМТТАВ(Е%,П%) MS 

1740 па2е5(Е%,П%-3) =MS 

1750 NEXT 

1760 NEXT 

1778 VDUI9,2,9,0,0,0,19,4,14,0,0,0 
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1780 FOR р%=1 TO 21 1976 DATA"BLBI...A  A..MBBBLB" 


1790 SOUND 2,-15,0%%2,1 1980 DATA" ...0ВК  MI.G... " 
1800 SOUND 1,-15,0%%3,1 1990 DATA"BD.H...À А....Н.СВ" 
1810 NEXT:VDU20 2000 DATA" A.MBI.EBBBF.CI.A.A " 
1820 ENDPROC 2010 DATA" M К..... ...А..МК" 
1830 2020 DATA" A.EI.JBI.H.CK.JF.A " 
1840 DATA 1,1,5,9,6,18 2030 DATA" А........А.ЕР....А " 
1850 DATA 9,1,9,22,2,15,17,15 2040 DATA" MBBI.H.H.A....JBBK " 
1860 DATA" AA M aca 2050 DATA" А....А.С.ЕВВІ....А " 
1870 DATA" CBBBBBBL LBBBBBBBD "e 2060 DATA" A.CD.A.. .....СІ.А " 
1880 DATA" Ағ............. tA " 2070 DATA" A.EF.G.H.H.JBBLF.A " 
1890 DATA" A,.CI.JBD.CBI.JBD.A " 2080 DATA" At.....M Koo. ,TÀ " 
1900 DATA" A.G....A.A.....G.A " 2090 DATA" EBBBBBBK MBBBBBBBF " 
1918 DATA" A...CI.G.G.JBD...A " 2100 DATA" AA s 
1920 DATA" А.Н.б........А.Н.А " 2118 

1930 DATA" A.G...CBD.CD.A.A.A " 2120 ON ERROR OFF 

1940 DATA" A...H.EBF.EF.G.A.A " 2130 MODE 7: *FX12 

1950 DATA" А.ОВК.......... С.А " 2140 REPORT:PRINT" at line “; ЕНІ, 


1960 DAT. М А. o eGeCBBBD.JD. o .А " 21 5ø END 


SIMPLIFYING CHARACTER DEFINITIONS - Alan Baker 
~ "When using VDU 23 it is much easier to use hex numbers as this splits the problem 
up into adding up 4 bit nibbles rather than 8 bit decimal numbers. eg. 
VDU23, 224,60,126,219,255,126,60,36,66 

can be replaced by: 

VDU23,224,&3C,& 7E,&DB, &FF,&7E,&3C,&24,&42 

This can then be shortened to: 

VDU23, 224, & 7E3C; &FFDB; &3C7E; &4224; 

With a saving of three bytes. 


6,0 0 0 0 6 0 9 0 00 0 0 06 0 D BU O 60006400 ооо ово ото ооо о ооо зоо ооо ово о (os o ea a a a a a a a aa a a a a aa a a A La ATA TL A ATA ATA ATL RA aT ATL тие аа аашаа 
eS o elo o ө n o ө ө o ө ө ө v € 0 e о o € € 0 9 о ө а 0 ө о e c o o e o o o o о о c o o e 00600000000000000000000 OO 9,9... 59 9, a o озата тогото то сосе тате ото то 0-0. 0-678 -07O-a-e707879797074707070707070707070707070767 976 
. 


ABBREVIATION FOR COLOUR, - N.Sharma 
N.Sharma reminds us that the abbreviation for colour is C. For a full list of 
abbreviations see the user guide, page 484 or the BEEBUG reference card page 4. 
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SUBSCRIPTIONS 


ALL back issues are kept in print (from Send all applications for membership, 
April 1982). Send 90p per issue PLUS an subscription renewals, and subscription 
А5 SAE to the subscriptions address. queries to the subscriptions address. 


This offer is for members only, so it 


is ESSENTIAL to quote your membership MEMBERSHIP COSTS: 


number with your order. Please note £5.40 for 6 months (5 issues) 
that the BEEBUG Reference Card and £9.90 for 1 year (10 issues) 
BEEBUG supplements are not supplied European Membership £16 for 1 year. 


with back issues. Elsewhere (Postal zones) 


Те Zone А £19, Zone В £21, Zone С £23 
Subscriptions & 


Software Address SOFTWARE AND ROM OFFER (Members only) 


. BEEBUG These are available from the 
PO BOX 109 subscription address, which is our NEW 
Baker Street software address also. (Note that this 


NOTE OUR NEW 
SUBSCRIPTIONS 
ADDRESS 


High Wycombe does not apply to Wordwise 
Bucks - in this instance please see magazine 
HP11 2TD for details). 


IDEAS, HINTS & TIPS, PROGRAMS, AND LONGER ARTICLES 


Substantial articles are particularly welcome and we Editorial Address. 
will pay around £25 per page for these, but in this BEEBUG 

case please give us warning of anything that you PO Box 50 

intend to write. In the case of material longer st Albans 

than a page, we would prefer this to be submitted on Herts 

cassette or disc in machine readable form using AL] 2AR 

"Wordwise", "Minitext Editor" or other means. If you 

use cassette, please include a backup copy at 300 

baud. 

We will also pay £10 for the best Hint or Tip that we publish, and £5 to the next 
best. Please send all editorial material to the editorial address opposite. If you 
require a reply it is essential to quote your membership number and enclose an SAE. 


BEEBUG MAGAZINE is produced by Sheridan Williams and Dr David Graham. 
This issue was edited by David Graham and Mike Williams. 

Production Editor: Phyllida Vanstone. Technical Assistant: Alan Webster. 
Thanks are due to John Yale, Adrian Calcraft, Tim Powys-Lybbe, Graham Greatrix, 
Matthew Rapier, Colin Opie and David Earlam for assistance with this issue. 


All reasonable precautions are taken by BEEBUG to ensure that the advice and даға 
given to readers are reliable. We cannot, however, guarantee it, and we cannot 
accept legal responsibility for it, neither can we guarantee the products reviewed 
or advertised. BEEBUG (c) October 1983. 


BEEBUG NEW ROM OFFER 


А special arrangement has been agreed between Acorn and BEEBUG whereby BEEBUG 
members may obtain the Series One Machine Operating System in ROM at the price of 
£5.85 including VAT and post and packing. | 

The ROM will be supplied with fitting instructions to enable members to install 
it in their machine. қ 

If the computer does not subsequently operate correctly, members may take their 
machines to ап Acorn dealer for the upgrade to be tested, which will be done at a 
charge of £6.00 plus VAT. This charge will be waived if the ROM is found to have 
been defective. If the computer has been damaged during the installation process, 
the dealer will make a repair charge. 


Please note that we cannot accept EPROM-based operating systems (0.1 or 1.0) іп 
Lieu of payment. This can only be performed by Acorn dealers or by Acorn's service 
centre at Feltham, and applies only to users of the 0.1 0.5. 


ADDRESS FOR 1.2 0.5. IF ORDERED ON ITS OWN:- ROM Offer, BEEBUG, РО Box 109, 
High Wycombe, Bucks, НР11 2TD. PLEASE ALLOW 28 DAYS FOR DELIVERY. 
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File Managemen! Program on Cassette 
on Disc £11.00 and £12.00 


| OMEGA New Machine code game 
. _ SWARMER New Machine code game 
|. NEW 1.2 OPERATING SYSTEM ROM £5. 85. 
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| BEEBUG MAGAZINE BINDERS £3.90. 


| Ds MEMOREX BLANK 5.25 INCH DISCS 
4ОТВАСК £15.50 80 TRACK £25.50 
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MAGAZINE CASSETTE SU BSCRIPTION £33 P. A. 


NEW SOFTWARE CLUB FOR BEEBUG MEMBERS 
Games from Program Power, Computer Concepts, 
and Virgin Games at a discount to members. 
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magazine is now 


Printed in England by Staples Prin 


To save wear and tear on fingers and 
brain, we will be offering each month 
a cassette of the programs featured 
in the latest edition of BEEBUG. The 
first program on each tape iS a menu 
program, detailing the tape's 
contents, and allowing the selection 
of individual programs. The tapes are 
produced to a high technical Standard 
by the process used for the 
BEEBUGSOFT range of titles. Ordering 
information, and details of currently 
available cassettes are given below. 


Previous cassettes: Vol.] No.16, 
Vol.2 No.l, Vol.2 No.2, Vol.2 No.3, 
Vol.2 No.4. 


This month's cassette (Vol.2 No.5) 
includes: Disc string search; 
Selective — renumber; 3D surface; 


We аге able to offer members 
subscription to our magazine 
cassettes. Subscriptions will be for 
a period of one year and are for ten 
consecutive issues of the cassette, 
If required, subsriptions may be 
backdated as far ав \1.1 No.1Q, 
which was the first issue available 
on cassette. This offer is available 
to members only, so when applying for 
Subscription please write to the 
address below, quoting your 
membership number and the issue from 
which you would like your 


Subscription to start. 
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BEEBUG MAGAZINE BINDER OFFER 
АЕ DENVER ӘГГЕК 


А һага-Баскеа binder for BEEBUG 


available. These 
binders are dark blue in colour with 
'BEEBUG' in gold lettering on the 
spine. Тһеу allow you to use the whole 
of the first volume of the magazine as 
a single reference book. Individual 
issues may be easily added or removed. 
The binders will also conveniently hold 
Less than 10 issues, so that you can 


use it while you build up Volume 2 
also. 


ШТ oy 
I 


ters St Albans Limited at The Priory Press. 
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Speech count; | Munchyman; Stairs; 
Fabrics; Invisible alarm: Teletext 
Programs; Joystick initialisation; 
Prelude XII by Bach and an NEC 
printer dump. 

For ordering information see 
BEEBUGSOFT advertisement at the back 
of this month's magazine Supplement. 


CASSETTE SUBSCRIPTION ADDRESS: 
a EEN АЛБОО: 


Please send a sterling cheque with 
order, together with your membership 
number and the date from which the 
subscription is to run, to: 

РО Box 109, Baker Street, High 
Wycombe, Bucks, НР11 2TD. | 


CASSETTE SUBSCRIPTION PRICE: 
„ОК £33 inc VAT and psp . | 
OVERSEAS (inc Eire) £39 inc p&p 


(no VAT payable). 


НЕШЕ muye 
Apu rh 


BINDER PRICE 


U.K. £3.90 inc p&p, and VAT. | 
Europe £4.90 inc p&p (VAT not charged) 
Elsewhere £5.90 inc p&p 

(VAT not charged) 


Make cheques payable to BEEBUG. 

Send to Binder Offer, BEEBUG, 
PO Box 109, Baker Street, High Wycombe, 
Bucks, HP11 2TD. Please allow 28 days 


for delivery on U.K. orders. 


Please note that if you are ordering a 
binder now, you will not receive your 
binder until mid-August, we apologise 
for this, but have had to re-order. 


ISSN 0263 -7561 


